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INTRODUCTION 


Proposed V/STOL aircraft require propulsion systems that operate 
efficiently over wide ranges of free -stream velocity, incidence angle and 
inlet throat Mach number (mass flow rate). A major component deter- 
mining the efficiency of operation at these flow conditions is the inlet. 

An importanftool in the design of an efficient inlet is the -capability to 
theoretically analyze the inlet flow. 

Many of the proposed V/STOL inlets are three-dimensional (fig. 1). 
Since the capability for a full three-dimensional inlet analysis does not 
exist at this time, simpler but approximate methods for modeling these 
inlets were developed. The flow about some of these inlet shapes (e. g. , 
fig. 1(a)) can be approximated by calculating the flow about a group of 
axi -symmetric geometries having shroud profiles corresponding to sev- 
eral circumferential angles. Methods for analyzing a xi symmetric . 
geometries exist (ref. 1) and are in use at the Lewis Research Center. 
However, inlets such as shown in figures 1(b) and (e) are not adequately 
approximated axi -symmetrically. These inlets are better approximated 
by two Hlimensional geometries. Therefore, a procedure for calculating 
two-dimensional potential flows was developed. Figure 2 shows the two- 
dimensional approximations made for analyzing the three-dimensional in- 
lets shown in figures 1(b) and (c). 

The procedure developed utilizes three computer programs and is 
similar to the procedure for calculating axisymmetric flows (ref. 1). 

The chief program is the Douglas two-dimensional potential flow program 
(ref. 2) called 23Y at Lewis, which calculates the incompressible potential 
flow about arbitrary two-dimensional bodies. The other two programs, 
original with Lewis are called SCIRCL (ref. 1) and COMBIN-2D. Program 
SCIRCL generates input for 23Y from various specified analytical shapes 
or sets of coordinate points for the inlet components. Program COMBIN- 
2D takes the basic solutions output by 23Y and combines them into solutions 
of interest, and if desired applies a compressibility correction. Figure 3 
is a schematic representation of these solution steps. 
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This paper consists of a statement of the problem to be solved, 
a description of each of the programs, sample results and sufficient 
'documentation, including a test case, to enable the user t'o run'&e 
rprbgrams. 

SYtoOLS 

A, B, C , D combination coefficients 

M Mach number 

V velocity 

• 

W inlet mass flow 

or inlet incidence angle 

Subscripts : 

0 control station 

1 incompressible 

SI' passage between lower shrotid and cehtefbody 

passage between upper shroud and centefbody 

°° free stream value 

PROBLEM AND SOLUTION DEStlRiPTION 
Statement of the- Problem 

The basic problem to be solved is ta c'alculate either the compressible 
or incompressible potential flow in and about an arbitrary two-dimensional' 
inlet at any combination of operating conditions of free stream velocity 
^ooj incidence angle or,- arid inlet mass flow rates W' , Wq^, or W ■ . 
Figure 4 shows four possible combinations of inlet geometries and weigh? 
flow specifications to be analyzed. Figure 4(a) shows the single inlet pas- 
sage where the free stream conditions -a, arid inlet weight flow ratfe‘. 
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• 

are specified. Figure 4(b) shows a single inlet with dual passages 
where V^, a, and the two passage weight flow rates Wg^ and Wg« 
are specified. Figure 4(c) shows the same inlet and free stream flow 
conditions, V^, as figure 4(b). However, in this case the total inlet 
and one passage weight flow rate-, and Wg^ are specified. Fig- 
ure 4(d) shows a dual inlet configuration where V a and 

are specified. The two dimensional flow problem is solved in several 
steps (programs). 

1. Geometric representation (Program SCIRCL) 

2. Incompressible potential flow basic solutions (Program 23Y) 

3. Combined solutions with compressibility correction 

(Program COMBIN-2D). 

Each step and its corresponding program is described in the following 
section. 


Description of Solution Steps and Programs 

G_epmetr ic representation - Program SCIRCL. - The inlet is assumed 
to be two-dimensional. The body profiles are broken into segments at con 
venient tangential points (fig. 5). Each segment may be defined by an 
analytic expression or by a set of points. The inlet duct walls and outer 
surfaces must be extended far downstream (fig. 5) to facilitate obtaining 
accurate potential flow solutions in the inlet in the region of interest. The 
geometry program SCIRCL prepares coordinate -point input for efficient 
use of the potential flow program and also prints out information such as 

curvature, wall angles, etc. , which is useful in preliminary screening of 
proposed inlet shapes. 

In addition to the surface points, sets of points perpendicular to the 
inlet axis, called rakes, are needed at axial locations where velocity pro- 
files or streamlines are desired. At least one set of rake points is re- 
quired, corresponding to the axial location where the inlet weight flow is 

specified, as discussed with regard to figure 4. Such rakes are called 
control stations. 
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Program> SCIRCL generates the coordinates of the rake points for 
23Y. Program SCIRCL will also produce a Calcomp plot of the inlet 
geometry and rake points. 

IrTcompressible potential flow basic solutions - Program 23Yj - 
Program 23Y is the Douglas incompressible potential flow completer 
program for single or multiple two-dimensional bodies. Briefly', the 
program utilizes a distribution of sources and sinks of initially m ' 
strength to represent the inlet profile. The continuous distributiori is 
approximated by representii^ the inlet as a finite number of discrete 
flat elements having' constant source strength and characterized by the 
mid point of the element (called the control point). This- approximatidh 
results in a set of linear algebraic equations for source strength at the 
control points that are solved by matrix methods^ Velocities- at the coh- 
trol points and at specified off -body points (rake points) are then cal- ' 
culated from the soiirce/sink distribution. 

In the two passage case, the program is used to obtain five baSiO 
solutions which are-used in linear combination in order to satisfy the 
prescribed operating conditions (fig. 4). The first basic solution is 
axial flow, the second is a 90® cross flow, the third, fourth, arid fifth 
solutions are vorticity solutions about the lower shroud, centerbody, 
and upper shroud, respectively. In the single pass^e case, only four 
solutions are generated. The first two are the same as the two-passage 
case while the third and fourth are vorticity solutions about the lower 
and upper shrouds respectively. 

Combined solution - Program COMBIN-2D . - This program com- 
bines the basic solutions V^ j=l,2, 3,4, 5 from 23Y into any number 
of solutions of interest. A solution of interest is one having specific 
values of free stream velocity, V^, angle of attack of inlet, a, and 
weight flow, W, through the control stations described previously. 
Optional inputs for W are average axial velocity at the control sta- 
tions (V^, Vg^, or Vgg) or average Mach numbers (M^, Mg^ or Mgg). 
If either W or are specified, they are converted to velocities for 
use in the combination solutions. Temperature and pressure must also 
be specified if other than standard conditions are used. 
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The method of combination of the basic solutions is shown in fi^re 6. 

A compressibility correction, if desired, is then applied to the velocities. 
The compressibility correction used is that of Lieblein -Stockman (ref. 3). 

V = V.’ 
com' me 

where the terms on the right hand side are obtained from the incompres- 
sible solution. This correction requires no alteration of the inlet geom- 
etry and can handle locally sonic or supersonic flows. Flow properties 
(Mach number, pressure ratio, etc. ) are calculated for either the com- 
pressible or incompressible cases .depending on the version desired. . 

The compressibility correction is actuated by setting ICOMPl to 0. The 
incompressible version is generated by settir^ ICOMPl to 1. If two pas- 
sages are specified, two of the rakes mentioned under SCntCL are used 
as control stations by COMB1N-2D. A control station is the rake where 
the average inlet axial velocity of the combined solution is specified. The 
possible choices of control stations for two passage cases are shown in fig- 
ures 4(b) to (d). If only one passage is specified (fig. 4(a)), then any rake 
can be used as a control station. However, it should be noted that the com- 
pressible solution is most accurate in the vicinity of the control station 
since the compressibility correction does not exactly satisfy continuity. 

When the velocity on the inlet surface becomes locally supersonic, the 
agreement between theory and experiment is generally not as good as when 
the flow remains subsonic. To improve the agreement, an optional super- 
sonic correction has been incorporated into the program. The supersonic 
correction is actuated by specifying NX as 1 on input. 

Sample Results 

To illustrate the results of the present calculation procedtire, the 
graphic output for ^the Test Case is presented next. 


V. /V.' 
me' me 
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TPhe graphic output of SCIRCL is illustrated in figure 7 and consists of: 
a plot of the inlet geometry and the computational point spacing, and- the lo-- 
cation of the rakes, and their point spacing. In addition to its reference 
value the plot is useful for troubleshooting for mistakes in the geometry iri> 
put and for validating the satisfactory distribution of body points- and rake 
points. 

The graphic output of COMBIN-2D is illustrated in figures 8- to 10. 
Figure 8 shows the pressure distribution on both the internal and external 
surfaces of the upper shroud. Similar plots can be obtained for the lower 
shroud and for the centerbody when there is one. 

Figure 9 shows the surface Mach number distribution. The coifimehts 
made above for the pressure plots apply also to Mach number plots. 

Figime 10 shows a plot of the flow field vectors. Whenever rake points, 
are specified (see fig. 7) velocity vectors are calculated and can be plotted. 
Note that velocity vectors can be obtained outside the inlet as well as 
inside. > 


INPUT AND OUTPUT FORMAT 


SCIRCL Input 


Format 

Col. 

no. 

FORTRAN name 

Description 

9A6 

1-54 

ARE 

= title for area plots, "CROSS- 
SECTIONAL AREA, SQ. IN. " 

9A6 

1-54 

EX 

= title for X-axis. "AXIAL 
POSITION, IN. " 

9A6 

1-54 

CURVO 

= title for curvature plots. 
"CURVATURE ON SHROUD" 

9A6 

1-54 

SURF AC 

- title for x-axis with surface 


distance plots. "DISTANCE 
ALONG SURFACE FROM DOWN- 
STREAM END OF SHROUD, IN. " 
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These first four cards above will be uncharged for all runs and can 
be made a part of the execution setup deck, or replaced with data state- 
ments. 

Card Format Column FORTRAN Description 

name 

1 9A6 1-54 TITLE Description of Case 

FOR CALCOMP PLOTTING OF INLET PICTURES 

2 6F10. 2 1-10 XX Length, in plot -inches, of X^ 

axis required. 

11-20 XMIN Value, in data-inches, of far 

left X -point. 

21-30 EXEP Data -inch per plot -inch along 

X-axis. 

31-40 YY Length, in plot -inches, of Y- 

axis required. 

41-50 YMTNT Value, in data-inches, of 

bottom Y-point. 

51-60. ORD Data-inch per plot -inch along 

Y-axis (usually equal to EXEP). 

FOR INFORMATION USED BY SCIRCL 

3 - - - Blank 

4 2A6,I4, 1-6 IDENT Six-character tag for case I, D. 

211,212, 

10X,I1, 

9X,3I1, 7-12 PROG 23Y 

212 

13-16 N06 0 

17 LPNCHO 1, Do not save output for 23Y on 

Unit 17. 


(Flag ’A’) 
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C^d Format 

Column 

FORTRAN 

Description 

Flag B 

18 

IPLOTA 

Plot inlet area against X- 
position (used only for ^igym s 
metric case). 

Flag C- 

19-20 

IPLOTC 

-1, Plot ctirvature VOPSUS X 
-t-1, Plot curvature versus S’ 
(Used only for axisynimetric 
case) 

FlagD 

2J-22 

IRE AD 

0 (Obsolete) 


ALL FLAGS 
are ’on’ when 
=1, unless other- 
wise noted, (Either 
E or J or neither 


can.be on but not both). 



Flag J 

33 

lAB 

Redo geometry from point 
pc A A, YAA) to (XBB, YBB). 

Flag E 

43 

rREDON(l) 

Redo entire geometry via 
direct i^iterpolation 

Flag F 

44 

IREDQN(2) 

LPNCHO for any redo 

FlagG 

45 

IREDON(3) 

IPLOTA for any redo 

FlagH 

46-47 

IREDON(4) 

IPLOTC for any redo 

Flag! 

48-49 

IREDON(5) 

IREAD for any redo 

Skip card 5 if J=0 

5 4F12. 5 

1-12 

XAA 

X position of Parting point for 
partial redo. 


13-24 

YAA 

Y position of starting point for 
partial redo. 


25-36 

XBB 

X position of ending point for 
partial redo. 


37-48 

YBB 

Y position of ending point for 
partial redo. 
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Card 

Format 

Column 

FORTRAN 

6 

4F10.2 

1-10 

ANBDYS 



11-20 

DELS 



21-30 

DELSMX 



31-40 

XRI 

7 

14 

1-4 

NRAKE 

8 

3F8.5,I3 

1-8 

XRAK 



9-16 

YLO 

(Note: 

There is one card 

for each rake) 



17-24 

YHI 



25-27 

nY 

9 

3F10.2 

1-10. 

TYPBDY 


Description 

Number of bodies 

Spacing between points in region 

of interest. 

Maximum spacing far from region 
of Interest. 

Axial distance at which surface 
distance equals zero. 

Nximber of axial locations at which 
data across the passage is desired, 
(Cannot be greater than 25). 

Axial location of rake. • 

Y value of first point (lowest 
point) on rake at XRAK. 

Y value, of last point (highest 
point) on rake at XRAK. 

Number of points in rake at XRAK: 
Restriction NY 200.^ 

Rake points are equ^ly spaced, 

AY, between YHI and YLO where 
ay = yhi-ylo 
(NY - 1) 

Body number. However, if the 
inlet is symmetrical, then any 
body can be input as a mirror ira - 
age of any other body. That can 
be accomplished by setting TYPBDY 
= -M. N where M is the number of 
the body to be created and N is the 
number of the body to be copied. 
ANSEG is set to the Y value of the 
line about which body N is to be 
mirrored. No other input is re- 
qmred for this body. 
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Gaud Format Coliimn FORTRAN - Description 

11-20 ANSEG = Number of segments for the p.ar- 

ticular body, except as stated, in 
TYPBDY. 

21-30 DELNEW = -1. , Delta S spacing is set to orig.- 

inal value of DELS. 

= 0. , Delta S is set to value of IjELS 
from previous body. 

= + number, Delta S is set to value 
of input DELNEW. 

10 3F10.2 1-10 ENREED Code indicating type of curve to be 

fitted through given points. 

= 0. , .for bisuper ellipses. See 
Table. I and figure 11 for available 
options. Input 4, 5, ,or 6 (XIN, YIN} 
points as directed: 

= 1000, Same as = 0 but with finer 
point spacing near one end of seg- 
ment (two such segments required). 
Usually used to give finer spacing* at 
the highlight. The superellipse go- 
ing into the highlight and' the one com - 
ing out should have this flag. 

For bisuper ellipses where the ’1000. ’ 
option is to be used, the rate at which 
the point spacing, ds, changes near 
one end dS*^ = ^^i-1 " 0^ate)(dS. _j) 
can be specified on input. 
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Card Format Column FORTRAN Description 

The rate (program name - PACE") is 
entered as the fractional part of 
ENREED for each such segment. For 
example, if ENREED were input as 
1000. 06, the spacing for consecutive 
points would be evaluated as follows: 

DS^ = - (0.06) DS^_^ 

if segment is to go from large -to - 
small spacing, or: 

DS^ = DS. + 1. 5 (0. 06) if seg- 

ment is going from small -to -large 
spacing. 

If PACE is entered as zero (i. e. , 
ENREED = 1000. ), the default value, 
0.05, is used. 

(PACE < 0. 133) 

*The first '1000* super ellipse ON A 
body reduces the point spacing as 
far as possible, down to a limit of 2 
percent of the ds value at the beginning 
of the segment. 

*Ail subsequent: *1000' superellipses 
input will increase ds as far as pos - 
sible up to the input value of DELS. 

* Any number or types of segments may 
be input between the first and subsequent 
'1000' bisuper ellipses, with the excep- 
tion of a normal bisuper ellipse 
(ENREED=0). 
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Card Format Column FORTRAN Description 

= is a straight line, input 2 co- 
ordinates (XlN(l), YIN(l), XIN(2), 
YM(2)) (fig. 12). 

The first and last straight iines on 
bodies 2 and 3 and the last strmght 
line on body 1 will automatically 
have their spacing increased from 
approximately DELS near the region 
of interest to approximately 
away from the region of interest. To 
get this tj^e of spacing in the first 
straight line of body 1, ENREED 
must be specified as 10. . 

The first straight segment of a body 
must be equal in asdal length to the 
last straight segment on the previous 
body. (If the actual straight lines are 
not equal in length, the longer should 
be input as two segments). 

= 10. , special straight line used for 
initial straight line on lower shroud. 
The straight line starts with large 
spacing (DELSMX) and ends with 
small spacing (DELS), (fig. 12), 

= -1. , fits a lemniscate between a 
straight line and a point. Input is 
three coordinates (fig. 12). 

= -3. , fits a cubic between two 
straight lines. ‘ Input 4 coordinates 
(fig. 12). 
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Card Format 


11 

6F12. 5 

12 

6F12.5 


Coliimn ■ FORTRAN Description 

= -4. 0, generates a 
segment which is a 
mirrored image of all 
the points from 
(XIN(l), YIN(l)) to 
pON(2), YIN(2)) about 
the line Y = YIN(3). 
See cards 11 and 12 
for XIN and YIN 
formats. 


= 99. , for direct in- 
terpolation option over 
one segment (see input 
instructions for card 
12 ). 


11-20 REEDEN(l) 


21-30 REEDEN(2) 


1-72 XIN(I) 

1=1,2, 3, 6,4, 5 


(See table I). Input ex- 
ponent of x-term for 
bisuperellipse equation. 
Blank for all other seg- 
ment types. 

(See table I), Input ex- 
ponent for y-term of 
bisup er ellipse . 

X -coordinate for 
specified points. 


1-72 YIN(I) Y- coordinate for 

1=1, 2, 3, 6, 4, 5 specified points. 

Note: If ENREED = 99. 
instead of cards 11 
and 12, input the follow 
ing cards. 
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Card Format 
11a Namelist/ $BODyiN/ 


12a Namelist/$A1JXIN/ 


Column FORTRAN Description 

Z(I) Z is a complex arr^y con- 
taining the X ,(in $hp 
real part) and Y yaluej(im - 
, aginary payt) p;f?eaqh.',giyen 
TOiiit along .the spgment. 
The namelist lyill normally 
-he longer than one card. 

■DONE .= A logical 7^.iahle„which 
'Should be input as 
= . TRUE. 


Note: If ANSEG=0 and 
TYRBDY /'.O, skip card 
No. 10, .and substitute 
11a for 11 and 12a for 12. 
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Niamber of ’9' cards = ANBDYS 


Number of ’10-11-12’ groups for each ’9' 
card = ANSEG 

*If ENREED = 99 on card 10, use 11a and 12a 
instead of 11 and 12 

ANSEG = 0 and TYPBDY 0 on card 9, 
skip.- 10 and substitute 11a and 12a fdr 11 and 12 


Figure 13 shows an SCIRCL input form, reflect- 
ing the above instructions. 
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SCIRCL Output 

Printed Output 

Input file dump (a list of input cards) 

Case number and title 
Input card 3 

Input card 4 (case I. D. and SCIRCL flags) 

Input card 6 (number of bodies, DELS, DELSMX, and XRI) 

Total number pf points for all bodies should not exceed 5p,0,. 

Total for any ope segment of a body should not exceed 200. 

An error message will indicate if these limits have been exceeded.. 
Total number of off -body points must not exceed 200. 

Body 1 segment data (actually lower shroud data for two-dimensional 
case), body 2 segment data (centerbody data for two-dimensional 
case), and body 3 segment data. For each segment: 

ENREED (as input) and type of segment 
Data depending on type of segment. 

Straight Line 

X X(l) X(2) 

Y Y(l) Y(2) 

Last point data* 

Bisuperellipse 

E3q)onents 

P as read in X X(l) X(2) X(3) X(6) X(4) X(5) 

Q as read in Y Y(l) Y(2) Y(3) Y(6) Y(4) Y(5) 

P as used A XO 

Q as used B YO OMEGA 

where A and B - Semimajor and minor axes of transformed super ellipse 
XO and YO := Center of the transformed super ellipse 
OMEGA = The difference (in radians) between the slopes of the end 
point slope lines minus tt/ 2 (i. e. , OMEGA is a measure 
of the nonperpendicularity of the slope lines). 

Number of iterations** 

Iteration data* * * 

Last data point* 
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’Magic triangle’ mess^es refer to the triangle formed by extending 
the superellipses slope lines toward each other and drawing a chordline 
between input points number (K2, Y2) and (X4, Y4). Input points (K3, 

Y3) and CX6, Y6) must lie within this triangle, or, for certain special 
cases, may lie in a similar triangle on the opposite side of the chordline. 

If input points (X3, Y3) and/or (X6, Y6) fall outside the magic tri- 
angle, the following, message (or messages-) is/are printed: 

’’This point is below the magic triangle " 

’’This point is outside the magic triangle. . . ” 

Cubic 

X X(l) X(2) X(3) X(4) 

Y Y(l) Y(2) Y(3) Y{4) 

A B C D 

where A, B, C, D are the coefficients of the cubic equation. 

Number of iterations** 

Iteration data* * * 

Last point data* 

Lemniscate 

X X(l) X(2) X(3) 

Y Y(l) Y(2) Y(3) 

THETMX ■ CALC ACALC 

where - THETMX CALC = angle between line 1 - 3 and line 1-2. 

ACALC from equation = 2(ACALC)^ sin 2 e where 

e = THETMX and = [XIN(3) - XIN(2)]^ + |yIN{3) - YIN(2)] ^ 

Number of iterations* * 

Iteration data* * * 

Last point data* 

Last point data. This is the coordinate point data for the last point 
of the segment. It is presented here because it is overwritten by the first 
point of the following segment and therefore does not appear in the point- 
by -point array below. 
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*'* Number of iterations is the number of iterations required to achieve 
a satisfactory point spacing for 23Y and have the calculated last point of the 
segment coincide with the input endpoint (to within a prescribed tolerance of, 

0. 1 DELS). K this satisfactory spacing and end point matching is not aphi^yed 
mthin 150 iterations, the following message is printed out ^ove i^ie number 
of iterations: 

’’This set of data exceeded 150 iterations. Calculations stopped XBilK 
YBRK. 

X(l), Y(l), X(2), Y(2), X(3), Y(3), X(4), Y(4), X(5), Y(5). ” 

* * * Iteration data 

DELS IN Value of ds at end of previous segment 

DELS Value used to start final iteration for this segment 

DELS OUT Value of ds at end of this segment, to be passed on 

to the next segment 

DSTEST Distance from last calculated point to input seg- 

ment endpoint 

FINAL PACE The value of PACE at the conclusion (or termination) 

of the point "Spacing iteration for bisuper ellipses- 
with ENREED 1000 

INPUT FOR THE 2D -COMBINATION PROGRAM 

For three body case 

NT(1) = , NT-(2) = , NT(3)= , NHUBMX = , NSPLMX = 

NP = 

For two body case 

NT(1) = , NT(2) = , NHUBMX = , NP = 

(See 2D-COMBIN input section) 



19 


Body coordinates (a separate set for each body) 

Point number 
X -axial distance 
Y-radial distance 
KAPPA-curvature 
DY/DX -slope 

ALPHA -slope angle in degrees 

S -surface distance measured from first point of each body 
S- S(2) - surface distance measured from XRI 
DELTAS -distance between points 

Rake Information 

XRAK - axial location of rake 

YLO - Y value of first location on rake 

YHI - Y value of last location on rake 

NDY - number of Y points on the rake, as input 

FUe output. - The fHe output (UNIT 17), written by SCIRCL, is used 
directly as input to 23Y. The file is primarily in 6E13. 8 format, consist- 
ii^ of the on -body point coordinates and rake points. 

Graphic output. - Standard Calcomp can be produced for each geometry 
fun as follows: 

(1) For all cases; an X - Y ’picture’ of the inlet with SCIRCL -generated 
on-body points denoted by the ’+’ symbol and connected with straight lines; 
segment end points have a large octagonal symbol; off -body rake points are 
denoted by a small square symbol (see fig, 7). 

(2) For cases with IPLOTC ^ 0 (used only for axisymmetric cases): 

a graph of upper shroud body curvature against axial position (IPLOTC = -1) 
or against distance along shroud (IPLOTC = +1). 
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COMBM-2D Input 

Eriglish eii^ineering, units axe used throughout the program. 
Length,, in. 

Velocities, ft/sec 
^gles, deg 
Pressure, Ib/ft^ 

Temperatures,. 

Densities, slug/ft^ 

Force, lb 

Weight flow, Ib/sec: 


Card 

Format 

Column 

FORTRAN 

Description 




Name 


1 

3A6 

1-18 

TITLE 

Title card. 

2 

914 

1-4 

NT 

Total number of on-taody points (fpy 
three body input NT (3), For two 
body input NT (2). ) 



5-8 

NSl 

Number of on-body points on the 
lower shroud (NHUBMX from SCIRCL). 



9-12 

NH 

Number of on -body points on the louver 
shroud plus hub (for three bodies, 
NSPLMX from SCIRCL — Fpr tw.Q 
bodies, NHUBMX from SCIRCL), 



13-16 

NP 

Total number of off -body points (NP 
from SCIRCL); 



17-20 

IW 

Flag for type of input through the con- 
trol station: 





= 0, weight flow 
= 1, Mach number 
= 2, velocity 



21-24 

NX 

= 1, apply supersonic velocity 


correction to data 
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Card Format Column FORTRAN 

Name 

25-28 KND 


29-32 ICOMPl 

33-36 IHUB 
3 10F8.0 1-8 VC 

9-16 VSl 

17-24 VS2 

25-32 VINF 
33-40 ALFA 

41-48 MC 

49-56 MCI 


Description 

Flag for scaling variables. All input 
lengths are divided by ELND. 

H KND = -1, ELND = YCU 
= 0, ELND = 1 
= 1, ELND = YCU - YCL 
= 2, ELND = the read -in value 
from card 4. 

Type of solution to be computed; 

= 0, compressible 
= 1, incompressible 
IHUB = 0, no hub input 

^ 0, three body input 
Average axial velocity at the control 
station between lower and upper 
shrouds upstream of the centerbody 
Average axial velocity at the control 
station between the centerbody and 
lower shroud 

j 

Average axial velocity at the control 
station between the^ centerbody and up- 
per shroud. Note if IW=2, then two of 
the three velocities must be input for 
the two passage case 
Free stream velocity 
Angle between free stream velocity 
and X-axis of the inlet 
Average Mach number at the control 
station between lower and upper shrouds 
Average Mach number at the control 
station between the centerbody and 
lower shroud 



Card Forinat Colturm FORTRAN 

Name 
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Description 


4 10F8. 0 


57^64 MC2 

65-72 TTOTAL 
73-80 PT 

1-8 ELND 

9-16 WDOTC 
17-24 WDOTC 1 
25-32 WDOTC2 

33-40 PST AT 
41-48 TSTAT 

49-56 CUTOFl 


Average Mach number at the control sec 
tion between the centerbody and upper 
shroud. IE XW=1 then two of the three 
Mach numbers must be input for the two 
passage case 

Total temperature. If TTOTAL - 
TSTAT=0, then TTOTAL = 548. 6'7 mil 
be used. 

Total pressure. If PT=0. 0 and 
PSTAT^O. 0, the program will calcu- 
late PT, If PT = 0. 0 and PSTAT=0.0, 
PT is set to 2116. 

ELND is the arbitrary length used for 
scaling or normalizing. Refer to KND 
input. 

Weight flow at the control station be- 
tween the upper and lower shrouds 
Weight flow at the control station be -• 
tween the centerbody and lower shroud 
Weight flow at the control station be - 
tween the centerbody- and upper shroud. 
If IW=0, then two of the three weight 
flows must be input for the two passage 
case. 

Static pressure 
Static temperature. 

If PST AT and TSTAT are not 0. 0, total 
temperature and total pressure will be 
calculated using, PST AT and TSTAT. 

If CITTOFI ^ 0, then the pressime ratio 
Pg/Pp on the lower shroud will be 
plotted against a dimensionless surface 
distance S/CTfTOFl, starting* at X' = XRl 
for a distance of S = CUTOFl. 
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Card Format Column 

57-64 

65-72 

73-80 


4A 6F10.0 1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

5 3F10.0 1-10 

11-20 

21-30 

6 3F10. 0 1-10 


11-20 

21-30 

7 3F10.0 1-10 


11-20 

21-30 

Note: Cards "6” and 


FORTRAN Description 

Name 


CUTOF2 

CUTOFH 

VPERIN 


XX 

XMLN 

EXEP 

YY 

YMIN 

ORD 

XTEST 


YCL 
YCU 
XTEST 1 


Same as CUTOFl except for upper 
shroud 

Same as CUTOFl except for the huh. 

If VPERIN is greater than zero then 
a CALCOMP plot of the inlet showing 
rake point flow field data will be pro- 
duced. VPERIN is the value of a unit 
vector in ft/sec/in.. If VPERIN not 
equal to zero, card ”5” must be input. 
The lei^h in plot inches of the 
abscissa of the velocity plot. 

Value, in data inches, of far left 
X -point. 

Data inch per plot inch along X-axis. 
Length, in plot inches, of the ordinate. 
Value, in data-inches, of bottom 

Y point. 

Data inch per plot inch along Y-axis. 
Axial location of the control station 
upstream of the centerbody between 
lower and upper shrouds 

Y on the lower shroud at XTEST 

Y on the upper shroud at XTEST 
Axial location of the control station 
between the centerbody and lower 


shroud 

YCLl Y on the lower shroud at XTESTl. 

YCUl Y on the centerbody at XTESTl. 

XTEST2 Axial location of the control station 
between the centerbody and upper 
shroud. 

XCL2 Y on the centerbody at XTEST2. 

YCU2 Y on the upper shroud at XTEST2. 

7” are not used for a single -passage case. 
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C’ard' 'Format 

Column 

FORTRAN 

Name 

Description 

8 3F10..0 

1-10 

XRl 

Axial location on the lower shroud 
where S " = 0. (Must be at thb' high^ 
light). 


1-I--20 

XR2 

Axial location on the upp§n Shroud' 

. where S = 0. (Must be at the high- 
light). 


2i-30 

XRH 

Axial location on tHe huB where" 
S = 0. Leave blank for two'bbdy 
case, ^ust be at the highlightyv 

9 3F10.0 

1-10 

YRl 

Y on the' lower shroud at XRl, 


fl-20 

YR2 

Y on the Upper shroud at XR2. 


M-30 

YRH 

Y on the cehterbody ^XRH. 

Figure 14 is the input, form for COMBUST -2D. 

COMBIN-2D Output 
Printed Output 


Input file dump 

TITLE - followed by 2-D COMBINATION SOLUTION 
Version of run (i. e. , compressible or incompressible) 

A list of the basic flow solutions obtained from 23Y 

In the table that follows, several functions of four different velocities' 

are given. The velocities are: 

Control: VC, average axial velocity at upstream control station 
Lower passage; VSl, average axial velocity at control station 

between hub and lower shroud. 

Upper passage: VS2, average axial velocity at control station 

between hub and upper shroud. 

Free stream: V^, free stream velocity 
The rest of the table is self-ejqplanatory perhaps with the exception of 
the terms INC and COMP.- INC means calculated from the incompressible 
.equations and COMP means calculated from the compressible equations. 



25 


The rest of the output will be defined by its name. 


ALPHA 

VMF/VC 

VSONIC 

VSONICC 

WDOTCR 


Angle of attack of inlet 
V /V 

OO' c 

Critical velocity uncorrected for compressibility 
Critical velocity 

Corrected weight flow at upstream control station 
WDQT X \frHET 
DEL 


WDOTLCR 

WDOTUCR 

TSTAT 

PSTAT 

PSTATC 

ASTAT 

RHOSTAT 

WDOTC 

WDOTL 

WDOTU 

VIC 

VICL 

VICU 

TTOT 


Corrected weight flow at control station between center 
body and lower shroud 

Corrected weight flow at control station between center 
body and upper shroud 

Free stream static temperature 

Free stream static incompressible pressure 

Free stream static compressible pressure 

Free stream static speed of sound 

Free stream static density 

Input mass flow at upstream control station 

Input mass flow at downstream lower control station 

Input mass flow at downstream upper control station 

Incompressible average velocity at upstream control 
station 

Incompressible average velocity at downstream lower 
control station 

Incompressible average velocity at downstream upper 
control station 

Free stream total temperature 
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PTOT 

Free stream total pressure incompressible 

PTOTC 

Free stream total pressure compressible 

ATDT 

Free stream stagnation speed of soimd^ 

.RHOTOT 

Free stream stagnation density 

THET 

TTOT/518. 67 

DEL 

PTOTG/2116.22 

XRIl 

Input 

YRIl 

Input 

XRI2 

Input 

YRI2 

Input 

XTEST 

Input 

YCL 

Input 

YCU 

Input 


LND ■ Length used for scaling 

XTESTl Input 

YCLl Input 

YCUl . Input 

XTEST2 Input 

YCL2 Input 

YCU2 Input 

'HUB-TIP L Lower passage hub to tip ratio 
HUB -TIP U Upper passage hub to tip ratio 
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P - S CUTOFF L - CUTOFl 

Input 

P - S CUTOFF HUB - CUTOFH 

Input 

P - S CUTOFF U - CUTOF2 

Input 

NT 

Input 

NP 

Input 

NSl 

Input 

NH 

Input 

KND 

Input 

IW 

Input 

NX 

Input 

ICOMPl 

Input 

IHUB 

Input 

VI 

Average axial velocity at specified con- 
trol station for basic solution 1 from 
23Y 

V2 

Same as VI except for basic 23Y solu- 
tion 2 

V3 

Same as VI except for basic 23Y solu- 
tion 3 

V4 

Same as VI except for basic 23Y solu- 
tion 4 

V5 

Same as VI except for basic 23Y solu- 
tion 5 


23Y basic solutions 1 and 2 are axial and crossflow solutions. For a three 
body case, solutions 3,4, and 5 are vorticity solutions about the lower 
shroud, centerbody, and upper shroud, respectively. For a two body case, 
solutions 3 and 4 are the vorticity solutions about the lower shroud and up- 
per shroud. Note there is no 5 solution for this case. 
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A,B/q,D 

^VINFP 


GtiBfER MESSAGES 


Coefficients of combination 

Incompressible free stream velocity ’’uncorrected” 
for compressibility if the input value was 
compressible 


’’VRESON = 
VCONC = 


_ IS GREATER TR* iViMi^. 
The velocity at a certain 


on -body point exceeds the;^lowable value .for ’the 
local .esqjansion condition s.o that the isentropic 
ratio term: 1. - VCONC as less than zero, 

VCONC -. y " 1 ^VRESON ^^ 

^ \ ^tot 


‘”1 EXCEEDS 20 ITERATIONS FOR RHOBAR. 

= ^ VCOMP^= ^ .RHOBAR = 

VB.AR HAS BEEN REDUCED TO 

VCOMP*RHOBAR/RHOtOT’«. Subroutine 
VBARIT attempts to find the average density at 
each .axial .location using the isentropic density 
ratio, the stagnation density (RHOTOT) and the 
.average incompressible VBAR (based on weight 
flow and the cross section). It has failed. VCOMP 
is the 20th attempt at finding the compressible 
velocity and has been used to compute the RHOB^ 
that will be returned. The normally unchanged 

VBAR IS adjusted to agree with these abbreviated 
results. 

For NX - 4-1, supersonic velocity correction is op- 
erating and a message to that effect will appear 
each time a region of local supersonic flow is en- 
countered on the body, and also when it ends. The 

body point number where these transitions occur 
will also be printed. 
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ON -BODY POINTS 


Lower shroud, centerbody or upper shroud 
For both compressible and incompressible versions, 
I The index number of the point 

X Axial distance 

Y - Height 

S Surface distance from XRI 


VCOM 

VBAR 

MACH 

CP 

RB/RT 

PS/PT 

VINC 

MACH 

CP 

PS/PT 


Compressible version 

Resultant velocity with compressibility correction applied 
Averse incompressible velocity at a given axial location 
Mach number 

. . ’ ^o 

Compressible pressure coefficient 

Pc/Pt 


% 


r 


Static to total pressure ratio, 


1 - 0.2 


V 

h 


3.5 


Incompressible version 
Resultant incompressible velocity 

Mach number (based on Incompressible velocity and compres- 


sible flow equations) 
Incompressible pressure coefficient 


v2~) 


1 - 


V, 


1/2 pV" 

Static to total pressure ratio, 1. 0 - p 
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OFF-EiODY POINTS 


For both incompressible and compressible versions: 
-Rake nximber 


Number of the point joints without numbers are int^rpola1:ed 
values at a body) 


X 

Axial location 

V 

Vertical location 

THETA 

Flow angle, tan“ 

MACH 

Mach nximber 



WFRACT Local cmhulative weight flow at a given point’s on a rake 
divided by total weight flow at- the fake 


VX 

VY 

VRE 

VBL 

RB/RT 

PS/PT . 


YX 

VY 

VRE 

PS/PT 


Compressible Versiori 

Axial velocity corrected for compressibility 
Vertical velocity' corrected for compressibility 
Resultant- velocity = \/vx^ + VY^ 

Average incompressible velocity at given axi’al location 
P/Pt 

Same as ON -BODY POINTS 

Incompressible version 
Incompressible axial velocity 
Incompressible vertical velocity 
Resultant velocity = \j VX^ + VY^ 

Same as ON -BODY POINTS 



31 


RAKE WEIGHT FLOW DATA 

For each rake the following data are given: 

I Number of rake 

X Axial location of rake 

IRAK Parameter to describe location of rake on the inlet 

= 1; upstream of inlet 

= 2; on lower shroud of ^ ’scoop” inlet upstream of 
upper shroud 

= 3; upstream of centerbody between upper and lower 
shrouds 

= 4; downstream of centerbody highlight in upper passage 
= 5; downstream of centerbody highlight in lower passage 
= 6; outside and below inlet ’ 

= 7; outside and above inlet 

WDOT Integrated weight flow for rake 

WDOTCA Specific corrected weight flow at each rake 

MACH One -dimensional Mach number at each rake based on WDOTCA 

Graphic Oui^ut 

Standard CALCOMP plots of PS/PT (fig. 8) and Mach number (fig. 9) 
distribution against S/CUTOFI, S/CUTOF2, or S/CUTOFH are made for . 
any body whose value of cutoff is not zero. Two curves appear on each plot; 
one curve is the internal distribution and the other is the external 
distribution. 

If VPERIN not equal to zero, then a plot will be made of the velocity 
flow field at the off -body points (see fig. 10). At each off -body point'a vec- 
tor will be drawn showing flow angularity and magnitude. Magnitude will be 
shown by relative size of the vectors (a unit vector will have a magnitude of 
VPERIN). 
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DESCRIPTION OF SUBROUTINES. 

Fi^re 15 illustrates the calling relations between the main program 
and their subroutines * 


Program SC IRC L 

(A) MAIN SCIRCL Read all input, call required subroutines for, eqcft' 

segment as requested, plot each segment after- 
points are generated by subroutine; list points; . 
test for reworking of geometry if required 


(B) STRAIT 

(C) FNSTRH 

(D) FRSTSH 


(E) TEST 

(F) PRELPS 


(G) SUPERC 

(H) FONIS0 


Straight Lines 

Generate points on a general straight line- segment 

Generate points on final straight segment oi* a body: 

Generate points on first straight segment of' a body 

Bisuper Ellipses 

Test super ellipse input to see if mirroring about’ 
y-axis is required. 

Mirror superellipse input’ data about y-axis so that- 
slope (1,2) is greater than the slope (1,4) 

(fig, 11(a)) 

Generates points on a general bisuperellipse 
(table I) 

Iterate on input conditions to find bisuperellipse 
e:^onents 


Other Curves 


a) CUBIC 


Fit a cubic polynomial between two nonvertical 
parallel lines 
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(J) SIMQ Simultaneous solution of equations to obtain coeffi- 

cients of the cubic polynomial 

(K) LEM Generates points on a general Lemniscate 

(L) MIRROR Mirror the hub points to obtain the shroud 

Direct Interpolation 


(M) XYCALC 


(N) SGEN 

(O) DSTRP 

(P) SPGEN 

(Q) DNTRPC 

(R) FNTRP 

(S) FSTRP 

(T) FNTRPC 

(U) FNTRPA 

(V) TLU 

(W) LIMIT 



Executive routine for the following modules: 
purpose is to generate points ’’correctly” 
spaced along the curve defined by a list of 
input points. Inputs are used to develop 
double 3 -point interpolating polynominal in 
successive regions along the curve. Poly- 
nomals are then used to suggest points, 
derivatives, etc. which can be tested for 
spacing as defined by standard criterion 
(see comments in SPGEN listing) 


Refer to listing for comment card description 
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(X) WPUNCH 

(YJ WRTXY 
(^0. AREAA 


fecial Calculations; Output to 23Y 

Generate rake points at requested positions.; 
plot rakes 

Write all X,y coordinates 
Compute area 


(Zl) DRAW 
(Z2) PLOSIS 

(Z3) SINTP 
(Z4) SORTXY 


ERTRAN 


SYMBOL 
SCALE 
LINE / 
NUMBER 
PLOT 


Picture. Plotting 

Plot X-Y meridional pJL^e picture of each- 
inlet segment 

Plot frames for inlet picture and label- a^s.- 
Utility 

Lagrange three -point interpolation 

Rearrange the values m an- array, x, to in- 
crease with increasing index (ascending 
order); sort y accordingly 

System Library 

Routine which gives FQ^TRAN access to 
several UTSUVAC 1110' operating system 
commands. Can be eliminated by defining 
unit 25 before execution 


Standard CALCOMP routines needed for 
all plotting. 
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(A) MAIN COMBIN 

(B) INPTR 

(C) CONST 

(D) SEARCH 

(E) ANGLEF 

(F) SURF 

(G) SOLVE 

(H) COMCOR 

(I) -ONBODY 


Program COMBIN "2D 

•2D Executive calls to INPTR, SEARCH, ANGLEF, 
SOLVE, OFBDY, and if compressibility cor- 
rection desired COMCOR. Also, this pro- 
gram calls PLTER if output plots are desired 

Reads input parameters from unit 5. Also reads 
23Y output coordinates and basic flow solution 
velocities. 

Calculates most constants and intermediate pa- 
rameters and prints results. 

Finds the highlight on each body and calculates 
areas for all on- and off -body (rake) points. 

These areas are used in the compressibility 
correction 

Finds the body surface ai^le for each point on 
.the inlet 

Calculates surface distance along body as a 
function of X 

Computes linear combination coefficients A, 

B, C, and D to satisfy input flow conditions. 

Also calculates the incompressible velocities 
and average velocity V^ (used in compressibility 
correction) for each point 

Applies Lieblein -Stockman compressibility 
correction 

Uses velocities and densities to calculate: pres- 
sure ratios, Mach number, flow angles and list 
all results for points on the body 
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(J) OFBDY 
(J) VBARrr 


(L) INTER 

(M) SORTXY 

(N) INTER2 
(6) INTERS 

(P) INTEG 

(Q) CALTIT 

(R) PLTER 


scmcL 


23Y 


Same as ONBODY for rakes. Also calculates local frac 
tionai weight flows for each rake point 

Calculates average density ratio for compressibility 
correction 

See SCIRCL routine SINTP (duplicate) 

See SCiRCL routine SORTXY (duplicate) 

Calls INTER 
Calls INTER 

Performs trapezoidal integration 

Titles plots of pressure and Maeh number versus 
siirface distance 

Plots pressure and Mach mrniber versus surface 
distance 

INPUT/OUTPUT UNITS 

5 - Standard card input 

6 - Standard output list 

4 - Temporary storage; if flag J or E is 1, input to 

direct interpolation routines is written here 

17 - Saved. If flag A is 0, input for 23Y consisting 
of X, Y points is written here (6E13. 8) 

5 ~ Input (= 17 from SCIRCL) 

6 - Standard output list 

7 - Saved. Input for COMB IN -2D is written here 

(6 E 13. 8) X, Y, VI, V2, V3., etc. 


2 “4 
8-18 


Temporary storage 
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COMBIN-2D 5 - Standard card inpnt, flow conditions, etc. 

6 - Standard output list 

7 “ Input from 23Y 

12 - Saved. Input data (for lower shroud) for boundary 

layer program 

13 - Saved. Input data (for upper shroud) for boundary 

layer program 

14 - Temporary storage 
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LISTING OF PROGRAMS. 
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■program scirl 


ORIGINAL PAGE IS 
OF POOR QUALITY 


ecu 


PREPARE INPUT DATA FOR DOUGLAS POTENTIAL 

SECOND VERSION'"-” SPACING 5PECIFIE 

DIMENSION REEOEN (Z» ,ARE <9j’,EX<9) ,CURV0(9 
DIMENSION CAPPER(?0a)tDISH20DI»KAr t9),T 
DIMENSION' SDtSOO), S<5DD), NYC25J 

COMMON /SPREP/ KPREP,NIN_ _ 

COMMON /mVsO/ NNSDjNSDBDr'tlDJ ' 

COMMON /NHIGH/ NSPH G ,NLAST, XLASTl 500 ) ,TL 
COMMON /MVRTE/ IFLAG , NDYN , PROG .TITLE <9 ) , 
ll {25>,NDY(2SI .XRAK (25 I.NBDPTS<9) .N06.NRA 
COMMON '/FORisS/ID.bELS.XBK (20i.YBK(2QI,X 
L* tft t-PH A(5P01 , CA PPA ( 50 D >j SON ( 500 J.pt 01 BO 
common' /F OR'EOO/ 'IGE OHF , I SIBF .i'eUR VM, NONE 
COMMON /SUPF/ IFLD 

'COMHON/SEGNO/NSEG/j ' ' 

COMMON /HAIN/*XIN( ID) . YIN tl D J .DELSKX ,PIO 
COMMON /SS/ NBDY1 ',NbOdY 2,TYPBDY .NBDYS 
itJUt general PLOTTING VARIABLES 
COMMON/ LOT/XHIN,YMfN,ORD»EXEP»XX,YY,LPN' 
COMMOH/TITL/ TTITLt9,6l 

COMKON/TOL/BAGS(15I iB AGX ( 1 S f.'ZAP ( IS J ,NZA 
COMMON/SENSE/ . XJ2»,Yf2J , A, e _ __ 

COHMON/PAC/ PACE.DELSHL 
DATA p2TEST/6H 73Y/ 

DATA PLa'nK/6H / - 

data E0DFF/6HEN00FF/ 

DATA REDONE /6HRED0NE/ 

PI=3. 19359265 
PI0180-PI/18D. 

PI02=Pl /2. 

yHEN.NOG =,1*_A FLAG, IN CARD COLUMN 6 IS 
ONLY BASIC d'aTA MILL BE GIVEN IN 5DD PR 


FLOW programs EOO and 23YA 

_ _ A 

d' ■ ■ ■ a' 

A 

J,SURFAC(9J A-’ 

YP{9) ,IRED0N(9) 

a' 

A 

* a' 

AST(5DDI A 

BODIESIA ) ,lbENTiVL0't25) iVHA' 

KES _ _ 

ON ( 5 0 0 » , Y O'N ( 5 DO J ,'b YOX'O f 5 ED A ' 

A 


0000 

DOID 

0020 

0030 

0090 

"oo^" 

00 70 ^ 
0080 
009 ^ 

Dibo 


UF.IVORT.aLPHER 


2 .pn.Sl . IHUB , DEL NEU 

CHOilPLOTA^^ ' 


P(I5 1 


PUNCHED F.OR SOD 

OGRAH 


A' 

_A. 

A 


0120 

0130 

'0140 

. JU55_ 
OIGO 
0 170 
0180 

0200 

_P2.KI.__ 

0220 

0290 

■■’O 250 “ 
026,0 
'0270 
, 0280__ 
0290 
0300 
0310 
.0 32.P_ 
0330 
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CALL, ALOTIO 

Ct(,rUC RE AO AXIS LABELS FOR THE, HOST POPULAR PLOTTED VARIABLES 
READ (5,500)ARE 
READ (5,5D0>EX 
READ <5,5D0)CURVCf 
READ C5»5DD)SURFAC 
CALL ECHO 
IQ NIN=25 

READ t2Sr50n»ENp=6J0I TITLE 

IF {FLDfQ,3fc,TlTLE Cl Jl.E0.fLD{0»36,E0DFF ) ) GO TO 630 
REWIND R " 

LPUEfi=0 

ctcctcc READ GENERAL RL0TTIN6 VARIABLES 

READ C25,55S JXX,XHIN,EXEP»VY,rHIN,OPD 
15 F0RHATt4ll,FlQ.2,Il) 

READ C25, ISIIGEOHF ,ISIGF, ICURVN ,NO.NEUF,ALPHER ,IVDpT 
20 READ CHIN ,49QlIDENT,PR0G,N06»LPNcH6,IPL0TAr JPLOTC'»'JREAO,IAfl.UREDOA 

2Ncri,i=i,5j • - ’ - ^ 

LPDUK=LPNCHO ^ 

rF(LPDUK.EO,OILPNCHO=l , 

IFCLPDUH.EO.IILPNCHOZQ A 

25 JSTARTzD 
JSTOPzO 
PACE=0. 

IF CIAB.LE.OI go to 30 


READ fNIN,625)XAA,YAA,XBB,yBB 
1EUHB=0 


A 

A 

A 

A 

A 

A 


2** 4)^^ ‘‘‘ >'*’5 IIOENT ,PR06 ,N06 r C IREO.OWX I I ,1=2, A J ,I8yHB , C 1 REDON ( 1 1 , J=?A 

CCItCCC LEEHI WILL CONTAIN THE VALUE OF N AT THE HIGHLIGHT. NEEDED TO SPA 
C(Ut(( THE CURVATUJPE yS. X PLOTS INTO INTERNAL AND EXTERNAL PORTIONS A 

CCClCCt HH FOUNTS THE NO, OF SEGHFNTS ON SHROUD AS PLOT TING -PROCEEDS 
30 HHZO 

LEEHI=9000 

CtcrcCC LOAD AXIS LABELS INTO COHHON 
IF (NTN.EO.m GO TO AO 
00 35 1=1,9 
TTITLCI,! >=TITLEtI) 

TTITLtI ,2 J=BLAI<H 
TIITLfl ,3)=ARE (II 
TTlTLtI,4)=EX(i J 
TTITLCI, 51=CgRV0CIl 
56 TTITLCI, 61=SURFAC(IJ 
AO WRITE C6,52S)IDEN7, TITLE 
IF CHIN.EO.Al WRITE (6,A70> 

IF ININ.EO.A) GO TO 55 

WRITE <6tA5JI6EOMF,ISI6F,ICURyN,NO«EUF»IVORT 
AS FORKATCIH ,60HFLAG INPUT, IST'RECORD - FOREOD. 2ND - PUNCH, PLOT , REA 
IDO FLAGS/IH ,A11,1QX,I1} - ’ , 

IF trVORT.EO.O! GO TO 50 ' A 

IVORT=0 ’ , 

GO TO 55 , 

60 IV0RT=1 ^ 

55 WRITE C6,60»IDENT,PR06,N06,LPNCHO,IPLOTA , IPLOTC , IPE AD , I A B , ( I REDON t A 

1IJ»I=1,5I ' ^ 

2A6,IA ,2T1,2T2,IDX,I!,9X,3II,2I2I A 


60 FORHATClH 


C3A0 
0350 
□ 360 
O3T0 
P-3?r 

03 9E 

04 00 
OAID 

0A2e 

OA ID 
GAAD 
OAStf 
04 6C 
OA70 
0A‘8Q 


D51D 
05 20' 
0530 
OSAO' 
OSSD 
05 60 

05 70 
0580 
0590 
0 6 GO 
0610 
□ 6 20 
0630 
Q6A0 
0650 
0660 

06 70 
/ *• * 

Q690 
07C0 
0710 
0720 
C730 
0740 
075f’ 
0760 
0770 
0780 
079C 
0800 
□ 810 
0820 
0830 
0840 
0850 

□ 86D 
087G 
0880 
0890 

□ 900 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


IF(ASSIXXl.GT.10a. ) URITEtfctem XX 

e.4 FORHATU3HOXLEM tXX) = ,F 1 D . 2 , 30H ,G T , 100.. CHECK FORHATS , INPUT > A 
IFC ABSfXX I.GT.IDO. J STOP 

cruttt PLOT THE AXES NEEDED FOR THE INLET PICTUREt AND LABEL THE CASE A 
65 CALL PL0XI5{XX,VY,EXEP,0RD,XHIN,¥HIN,.25 ,,2S,D»0 ,1.2 ,I,U A 

CALL SVHB0L{-.3,YY-,5 , . 25 , IDE NT ,0 , , 6 1 A 

CALL SYHB0LfXX“1.50*,5,.25,IDENT,0.,6> A 

IFIMIN.EO.NICALL S YPB OL ( XX /2. , Y Y-. S , . 25 , REDO NF ,0 . ,6 ) A 

IF CNIN.EQ.4) GO TO 75 A 

C A 

C RFaD INPUT CARDS FOR SUPERCIRCLE A 

C 1 — CASE HEADER CARD — NO. OF BODIES, CASE NO . ,0ELS ,OELSHX A 

C OFF-BODY A 

C 2 — NRAKES = NUMBER OF RAKES (TOTAL NUMBER CANNOT EXCEED 25) A 

C 3 — X,YLO,VHI, NY (DATA FOR EACH RAKE) A 

C X = X OF THE RAKE, A 

YLO = Y OF THE FIRST PT. ON RAKE CLOSEST TO THE HUB - SHOULD RE A 

ABOUT DS greater THAN Y ON HUB A 

YHl = V OF THE LAST PT ON RAKE CLOSEST TO THE SHROUD - SHOULD BE A 

I ABOUT D5 LESS than Y ON SHROUD A 

NY = NO. OF PTS TO GENERATE FOR THAT RAKE A 

ON-BOOY A 

FOR EACH SEGMENT A DESCRIPTION CARD IS NEEDED, A 

THIS CARD DENOTES THE TYPE OF LINE, AND THE A 

COORDINATES OF THE LINE (UP TO 6 SETS) A 

A 

READ (NIN,555«EN0=S30)ANBDY5,0ELS,DELSHX ,XRI,ANNSD A 

HOLYDS=DELS 

read (NIM,4fl5)NRAKES A 

READ (NIN ,550) ( XRAK (I ),YL0 (I J ,YHI (I r ,NY ( I >,I = IjMRAKES ) A 

WRITE (GflBOANBDYS.DELSiDELSMX.XPl A 

DO 70 irl .NRAKES A 

A 

70 NDY (I )=NY (I )-l A 

75 HLAST=0 A 

MSPHG=0 A 

DSA«E=OELS A 

DEL52=DELS A 

D£LS1=DELS A 

N8DYS=ANBDYS A 

NNS0=ANN$D ■ A 

A 

K = COUNTER FOR THE NUMBER OF ONBOOY POINTS GENERATED A 

IHUB = 0, WHEN THERE IS ONLY ONE BODY — IF THERE IS ONE BODY A 

IT MUST BE THE SHROUD A 

IFLAG = 0, IF THERE IS MORE THAN ONE BODY A 

A 

K=0 ■ A 

IHUB-D A 

IFLAG=1 

A 

N2 LOOP IS FOR THE NUMBER OF BODIES A 

C A 

DO 225 NZ=1,NBDYS A 

IFLD=D A 

IF (NZ.I3E.2) IFLAG = n 

IF fNZ.EE.2) IHUB“1 A 


091i( 

D918 

092D 

093C 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

102G 

1030 

1040 

1050 

106D 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

i 1 SD 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

12 30 
1240 
1250 
12 60 
1270 
1280 
1290 

13 00 
131" 
13 20 
13 30 
1340 
1350 

13 70 
1380 
1390 

14 00 
1 4 IQ 

14 20 
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c 

L 

READ <NIN,SS5>TYPBDy, AMSEG»OEL(0EW 
NUHBOn=IABS (IFIXITYPBDY)) 

WRITE (6,626 I NUHBOD v 

IP (JAe.GT.O) WRITE (‘(tSSSHYPBDYtANSEeiDELNEW 
NSE6=ANSE6 

rP(OELNEW,l.T, 0 . IDELSl =HOLYDS 
IP( DELNEW.GT.G. JDELSlrOELNEV 
KrK^i 

IF (TYPBDY.LE.D.OJ GO TO 215 
SON (KJ=D.Q 
C 

IF(N7.E0.KBD)NSEG=NSEG -LOWER 
C SEGMENT LOOP 

C 


85 


DO 2C0 J=1,NSEG 

C((l((t DIRECT INTERPOLATION FLaG — 

80 IF (NSEG.EO.DI GO TO 155 

READ ININ.SSSIENREED, (REEDEN (I > ,1=1 , 2 ) 

IF tENREED.EO.O, .OR.ENREED •6T,900. ) WRITE (6,8S)ENREED 
FORHATdH ,8HENREED= ,F9.2J 

IF (lA&.GT.Ol WRITE ( *( ,555 >ENREED , { REEDEN tl I , 1 = 1 ,2 ) 

IF (ENREE0.E0.99. f GO TO 155 

READ {MIN,62S»(XINai,I=l,3l ,XIN(6J , ( XIN II» , I=£f ,5 J 
READ (MlN,625HYIN(Il,I=l,J),VlM(6J,(YINtI),I=i4,5) j 

IF (lAB.GT.Ol WRITE I8,625l(XIN(I>,I = l,3J,XIN(6>,(XlNm,Iri|,5) 
IF (lAB.GT.Ol WRITE t R ,62 5 MY IN ( 1 1 , 1 = 1 , 3 1 , YIN (6 ) , ( YI N ( 1 1 ,1= i) , 5 j 
90 K SV — K 


CAppA CtU-O.D 

IF <ENREEO.NE,1.0.AhD,ENREED.NE.lO. I GO TO 105 
X0N(K)=XIN(1> 

YONtKlrYINtl 1 


WRITE «6,5701ENREED,fXIN(Tl,Irl,2), {YiNf 

Crt((t( KK= FIRST POINT ON CURRENT SEGMENT TO BE PLOTTED 
K K— K 

IF CTYPBDV.GE.2 .0) GO TO ICO 

IF tENREED.EO.l .O.AND.J.EO.NSEGl CALL FNSTRH (KJ 
IF tENREED.EO.l .0. AND. J.NE.NSEGJ CALL STRAIT (K.O.CJ 


IF tENREED.EO.lO. I CALL FRSTSH (K > 

95 DYDX0(K5Vl=DYDX0tKSV+n 
ALPKA(KSVI=ALPHA(KSV*1 J 

CC(((((( KR= TOTAL NO. OF POINTS TO BE PLOTTED FOR THIS SEGMENT 
KR=K-KK 

C(C((tt PLOT CURRENT SEGMENT 
call DRAU(KR,KK) 

GO TO 160 

100 IF (J.EO.lJ CALL FRSTSH (K 1 

IF tJ.E0.NSF6) CALL FNSTRH (K) 

IF (J.NE.l.'L ...■ .NSEGl CALL'STRAIT CK,0.0) 

, GO TO 95 

1Q5 IF(ENREED.LT.-3.0)G0T021G 

IF (ENREED.LT.-2.D) 66 TO 150 
IF (ENREED .LT.-'l. D ) GO TO lAO 


A 

A 


A 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


A 

A 


1<I30 

1500 


153C 


16D0 

1610 
1620 
16 30 
1640 
1650 
16 60 
16 70 
16 80 
1690 
17D0 
1710 
1723 
1730 
1740 
1750 
1760 
1770 
178C 
■ 1790 
18 00 
1810 
1820 
1830 
184C 
1850 
I860 
1870 
1880 
18 90 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
2020 
2050 
2040 
2050 
2060 


20 80 
2 0 90 
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IF <ENRE£0.LT.0.01 60 TO 135 




SFT-UP SUPER ELLIPSE 


KPREP=C 

ENRD=ENREEO-IDOO. 

IF fENRD.LT.0.0 J GO TO 110 
PACE=ENREE0-1000. 

IFCPACE.LF.D. )PACE=.05 
ENREEOrO. 

IFLD=IFL0*1 
60 TO 115 
110 IFLD-0 

IIS WRITE t6,S75>REEDEH{lI ,(XTN{I>,I=1,3J,X1 
,1 ( 2) »(Y1N( I) ,rrl,3) ,YINt61 tCYINII) 

CALL TEST (5> 

TSTART^K 

KI=K 

KK=K 

CALL SUPERC IXIN,YIN,BEEDEM,DELS1,ISTART) 
K=ia-1 

IF INZ.EO.ll 60 TO 125 
KKKKtk-I 

DO 120 JE=ISTART,KKKk 
IF CXONt JE ) .EO.XON ( JE*1 > ) 60 TO 12Q 
IF< lOYDXOt JEI-DYOXO (JE*I n/fXON ( JE) -XOH( 
1PA<JE)=-CAPPA(JE> 

120 Continue 

125 K2=K 

IDUM^O 

IF IKPBEP.EO.OJ GO TO 130 
CALL PRELP5 t IDUH» 1 ^5 , K 1 ,K 2 J 
130 KB=K-KK 

CALL ORAW(KR,KKI 
Go TO 160 


N(6) , (XINtll ,I='I,5J,REEDENA 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

JE*1 1 JPCAPPA ( JEJ .LT.O. ICAPA 

A 

A 

A 

A 


SET-UP LEMNISCATE 


135 WRITE <6,58D>£NPEE0,{XINm,I=l,3J,fYTN( 
KKrK 

CALL LEM (K1 
K=K + ] 

KR=K-KK 

CALL DRAU(KR,KKI 
GO TO 160 


I)fl=l,3) 


SET-UP ELLIPSE 


A 

1*10 WPITE <6,S851ENREED ,t XINCI > f I=1,R) , < YI'M( I J,I = 1,<* ) A 

KPREP=0 n 

CALL TEST (4) A 

K1 = K A 

KK=K n 

CALL FLIPSE (K> A 

K=K*1 A 

K2=K A 


2100 
2110 
2120 
2130 
21‘tO 
2150 
216D 
2170 
2180 
2190 
2200 
2210 
2220 
22 30 
2290 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2333 
2390 
2350 
2360 
2370 
2380 
2390 
29 CO 
2910 
2920 
2930 
2990 
2960 
2990 
2500 
25 10 
2520 
2530 
25 9G 
2550 
2560 
25 70 
2610 
2620 
2630 
2690 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
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IDUHrO 

IF {KPREP.EC.O 60 TO 1<IS 
CALL PRELPS nDUK,l,i|,Kl,K2) 

3P5 Kft=K-KK 

CALL 0RAW«KR,KKf 
GO TO 160 
C 

C SET-UP CUBIC 

C 

ISO WRITE l6,60SJEMREED,«XIfJa) ,I = I,4J ,IYIN(I|,I = l,ii) 

KK?K 

CALL CUBIC (K> 

K=K + 1 
KR=K-KK 

CALL DRAW(KR,KKJ 
GO TO 160 

C(ltt<« NEW LINEAR INTEGRATION OPTION, BODY OR FULt INLET 
155 KK=K 
KSV=K 

CAPPA CK)=0,0 

IF(NSEG.EO.OIDELSi=DELSHX 
CALL XrCALC<K,K2,NINl 
K=K2 
KR=K-KK 

CALL DRAWCKR,KK ) 

GOT0160 ■ 

216 KTOT=0 

KBEGIAirO 

KSTOPrO 

DO 219 JBOPrl,K 

IFtXINtll.EO.XON(JBOP).AND.YlN(ll,EO.YON ( JBOP nKBE6IM= JBOP 
IFtXIN(2» .EO.XON (JBOPl .AND.YIN(21 .EO.YON ( JBOP ) IKSTOPrJBOP 
I FCKSTOP+KBEGTN.NE.OJ G0T0221 
219 CONTINUE 

WRITE C6,222»KBEGIN,KST0P 
221 KTOT=KSTOP-«BEGIN-»1 
YCL=YTN(31 

URITE<6,223J YCL ,ENREED , C XI N t L2 1 ,L2= 1 , 2 > , I YIN ( L2 1 , L2- 1 t2> 
KK-K 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


CALL HIRRORfK,KTOT,KBEGIN,YCL> 

KP=K-KK 

CALL DRAU1KR,KKI 

218 FORHATt 'oeonv NO. •tl'f,* WILL BE GENERATED AS A MIRROR IMAGE OF ■* , 
I’BODY NO. », 14, ‘ABOUT AN AXIS AT Y= ‘,E1S.41 

222 FORHATt ‘OSEARCH FOR SEGMENT TO BE MIRRORED HAS FA1LE0‘,2I4> 

223 F0RMAH1H0»10X» ‘ENREED THIS SEGMENT IS A MIRROR IMAGE ABOUT THE* 
It* Y= •,1P1E15.4 t*LINE‘/20X,» THE ORIGINAL SEGMENT LIES BETWEEN*, 

2* THE FOLLOWING POINTS ’/IIX ,F6 . 3, 5X ,2HX , 1P2E 1 5. 4 /2 2X , IHY , 1P2E 15 . 4 I 

160 IF IIAB.LE.O) BO TO 200 A 

IFf A6S(XON6KK1-XAA*YON{KKI-YAA J,LE,l.E-7 )JSTART=KK A 

IFf ABSIXONCKt -X6B*Y0NtKl -YBB ) ,LE . I .E-7 > JSTOP=K A 

IFf JSTART.EO.KKIHBD=NZ A 

IF f tJSTART+JSTOPl.EO.D.OR.f JSTOP.GT.O.AND.K.GT.JSTOPM GO TO 2C0 A 
00 165 K9=l,3 4 

165 BACKSPACE 4 A 

IF (JSTART.HE.Kk J GO Tg 180 « 

WRITE {4,1701 A 


2730 

274D 

2750 

2760 

2770 

2810 

2820 

2630 

2840 

2850 

2860 

2870 

2880 

2 8 90 
2900 
2940 
295D 
2960 
2970 
2980 
2990 

3 0 00 
301G 
3 0 20 
3030 


3040 

2910 

2920 

2930 

3050 

3060 

3070 

308D 

3090 
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170 

175 

ISO 

1S5 

190 


F0ftMAT<3X,3H99. ,7UXI 

WPITE «‘*,«Hf5)X0NIKK>, YONIKKl 

KKl=KK+l 

00 175 K9-KK1,K 

Write <9 ,«l5QIX0NrK91, Y0N(K9I 

backspace 9 

IF tJSTOP.NE.KJ GO TO ISO 
WRITE (4,455>XOmK I.YONtK) 

GO TO 200 

IF tJSTOP.NE.KJ 60 TO 190 

LOUERrLOWER4l 

KH1=K-1 

DO 185 K9-KK,KH1 
WRITE 19 ,950IX0M{K9», Y0N(K91 
WPITE {9,955)X0MIK J.YONtK J 
GO TO 2D0 

IF { JSTART.EO.KK.ANO. JSTOP .F 
L0WER=L0WER+1 


ORIGINAL PAGE IS 
OF POOR QUALITY 


.01 60 TO 2D0 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


DO 195 K9^KK,KH1 ^ 

195 WRITE (9,95Q»X0H{K91 ,Y0N(K9) * 

200 WRITE t6,205JK»XON(KJ ,Y0N(KI,CAPPA(KI ,DVaXO(K),ALPHA(K) A 

205 F0BHAT{1HC,3X,11HL*ST POINT t2HK=,I5»9H» X=,E12.S,9H, Y=,E 12 . 5 , 7H. A 

IKAPPA=,E12.5,7H,DY/DX=,E12,5t7H,ALPHA~, £12.5) A 

A 

END OF SEGHENT LOOP » 


IQ 60T0220 

215 «1RB0D=IFIX( I ABS f T YP BOY ) -FLOAT! NUHBOO ) I *1 0. 1 > 
YCLtaNSEG 

KTOT=NBDPTS(HTRBOO )-NBDPTS<MIRBOD-l 1 
KBEGIN=NBDPTSfHrRBOD-l )41 
IFtHIRBOO .E0.1)KBESrN=l 
IFtHIRBOO.EO.llKTOT^NBDPTSm 

Write (6»21b»nuhbod,hirboo,ycl 

KK=K 

CALL HIRROR JK,KTOT,KBEGIN,YCL) 

KR=K-KK 

CALL DRAW(KP,KK) 

220 NBOPTStNZlzK 

NE0Y1=NBDPTS(1) 

N80DY2=NB0PTS(2) 

TYPfN2)=TYPBDY 
KAY tNZJrK 
225 CONTINUE 

END OF BODY LOOP 

IT0P12=K 

IFC TFLA6 .EO. 1 )NB 0D¥2=I TOP 12 
DELSND =DELS 
IF IIFLAG.EO.il N8DY1=Q' 


C 


CO-ORDINATES OF POINTS ON DOUNSTREAH CLOSURE 


A 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


3100 
5110 
3120 
313D 
5190 
3150 
3160 
31 70 
3180 
3190 
3200 
3210 
3220 
3230 
3290 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
333C 
3390 
3350 
3360 


3390 
39 DO 
3910 
3920 
3930 
3990 
3950 
3960 
3970 
3960 
3990 
3500 
3510 
3520 
3530 
3590 
3550 
3560 
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straight sectioh between hub and shroud 


OR splitter 


I TOPTt|=K + l 
ITOPT5=K+I 
IT0PT6=K+2 
1T0PT7=K*2 

IFtIVORT.eO.IT GOTO 255 
IF tNBDYl.EO.O} GO TO ?3D 
TNBDyiryoNtNBDVlI 
T*ISAVE=Y0NINBDY1 ) 

Y5SAVErYQNtNBDYl-*l > 

Y6SAVE=YON(NBOOY2) 

Y7SAVE=YONINBODY2*1> 

GO TO 235 
230 YNBDYl-D.O 
YRSAvErO.O 

23S NDY'( = (Y0NCNBDY1-*1 I-yNBDYI J*I .5/DELSHX 

ENOY»irNDY<i 

NPTS=NDYi**l 

NBDPTS<NBDYS*lT=NPTS*NBDPTStNBOYSI 
0Y4 = t YONtHBOYl-H l-YNBDYl I/EMDY^ 

00 2A0 I=l,NPTS 
AyEM=I-i 

’ IPNTI+K 

XONClPNf=XONtNBDYl*n 
YON tIPNJ=YN8DVH-AYEH*DY«l 
2i|Q CONTINUE 
2R5 ITOPTH=K*I 

1 TOPT5=ITOPT*I*MDY‘I 

^ IF tNB0YS.LE.2> GO TO 255 

C 

c STRAIGHT SECTION BETWEEN FLOW SPLITTER AND SHROUD 

C 


250 


YNBDV2=y6SAVE 

NDYSrCYTSAVE-YSSAVE »*1 .S/OELSHv 
ENDY5-NDY5 


NPTSrNDYS+1 

NB0PTS(NB0¥S*2J-NPTS+NeDPTSfHBDYS+I) 
DY5=tY7SAVE-Y6SAVE I/ENDYS 
DO 25Q 1=1,NPTS 


AYEH=I-1 


1PN=I*IT0PT5 
XONtIPN)=XON(NBODY2*l ) 
Y0N(IPNJ=YNB0 y24AYEH*DYS 
CONTINUE 


IT0PT6=IT0PT5+1 

IT0PT7=IT0PT6«NDV5 

CALL SUBROUTINE TO WRITE AND PUNCH 

255 CALL UPUNCH 

IF (NBDYS.GT.2> GO TO 260 

NT1=IT0PT5-3 

NT2=K-2 


CARDS 


A 35 70 
A 3580 
A 3590 


A 36DD 
A 3610 
A 3620 
A 3630 
A 36«0 
A 3650 
A 3660 
A 36 70 
A 3680 
A 3690 
A 3700 
A 3710 
A 3720 
A 3730 
A 3 7 40 
A 3750 
A 3760 
A 3770 
A 3780 
A 3790 
A 3800 
A 3810 
A 3820 
A 3830 
A 3840 
A 385D 
A 3860 
A 3870 
A 3880 
A 3890 
A 3 9Q0 

A 3910 
A 39 20 

A 3930 
A 3940 
A 5950 
A 3960 
A 3970 
A 3 9 80 
A 39 90 
A 4000 
A 4010 
A 4020 
A 4030 
A 4040 
A 4050 
A 4060 
A 4D7C 
A 40 SO 
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BO TO 255 
260 NT1=1T0PT7-S 
NT2rlT0PT5-M 
NT3=K-3 

NSPLHX=NB00Y2-2 
265 NHUBMX=MBDYl-I 
NR-O 

DO 270 I=1,NRAKES 
NP=NP«NDY CD + l 
270 CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


IF tNBDTS.LE.2I SO TO 275 

WRITE t6,5651NTl,NT2,NT3»MHUBKXtNSPLHX,NP 

GO TO 285 

275 IF (NMUBHX.GT.OI GO TO 280 
NHUBHX=NHUBHX-*1 
NTl =WT1*1 
NT2=NT2+1 

280 WRITE (6,5«fDJNTl,NT2,NHUBHX,NP 


CALCULATING HUB SURFACE DISTANCE tS-S(2)» 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


285 CALL SINTP CX0N,S0N,NBDT1,XRI,S2> i 

WRITE (6,SQ5l " 

IF fIFLAG.EO.lJ GO TO 295 A 

SO£L=D.O ^ 

DO 290 in.NBOTl • A 

IF tl.NE.lI SDEL=SONt I 1-S0N<1-1> A 

SDt 1 »=SON(l I-SZ A 

290 WRITE (6,520U,XONtI) »TON 1 1 » , C APPA ( I J ,DT 0X0 1 1 > , ALPH A ( 1 1 .SON ( 1 I , SO I A 
m.SOEL , 


CALCULATION SHROUD OR LOWER FLOW SPLITTER SURFACE DISTANCE 


295 NBP]=NB0Y1+1 

IF tNPOTS.EO.lT NBOOY2=ITOP12 

DO 300 I-NBP1,NB0DY2 

JJ=I 

IF (XONII I .LTiXONt r+1 ) J GO TO 305 
3QD CONTINUE 

305 CALL SINTP t XON ( NBPI ) ,SON tNBP 1 J , JJ-NBDYl .XRT ,S22 » 
IF tlFLAG.EO.l) GO TO 310 
WRITE <6,S1D> 

310 IF fNB0YS.LE.2t JJ=NB0DY2 
SOEL=D.O 

DO 315 I=NBP1,JJ 

IF tl.NE.NBPll SDEL=SONtH-SON<I-ll 
StI J=S22-S0NtI) 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


315 WRITE (6,520JI,X0NfIl »YON (I > ,CAPP A 1 1 ) ,D Y DXO { 1 1 , ALPHA til .SON tl I ,5 tIA 
1 ) fSOEt- ^ 

IF (NBDYS,.LE.2I 60 TO 5*10 A 


CALCULATING FLOW SPLITTER UPPER SURFACE DISTANCE 
WRITE (6.530) 

CALL SINTP tXON(JJ»,SON(JJJ,NBODY2-JJ,XRI,S23) 


11090 
4100 
4110 
4120 
413fl 
414C 
415C 
416G 
4170 
4180 
4190 
42DD 
4210 
4220 
4 2 30 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
436G 
.4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
44 60 
44 70 
4480 
44 90 
4 SCO 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4 5 90 
4 6 00 
461G 
4620 
46 30 
4640 
465C 
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S0EL=3.0 

Op 320 IrJJ,NB00r2 
IF SDEL-SON (I l-SON (I-l > 

S fl l=SONtI t-S23 

320 WRITE «6r52D)l,XONtIJ ,VON(IJ ,CAPPAH»,DYDXOai,ALPHAa),< 
I >«SDEL 

CALCULATING SHROUD SURFACE DISTANCE <IF THERE IS A FLOW 5 

NfiPl=NaODY 2 + l 

no 325 r=NBPl,IT0P12 

JJ=I 

IF «XON«I ) .LT.XONf I+l JI GO TO 330 
325 CONTINUE 

330 CALL SINTP (XON ( N? P 1 J ,SON ( NBPl > , J J-NBODT 2 ,XRI ,S33 > 

WRITE {&,535> 

SDEL=0,0 

OO 335 I=NBP1,IT0P12 
IF fl.NE.NBPlI SDEL=SONtI) -SON( I-l ) 

S Cl )=S33-SON(I> 

335 WRITE <6,52D)I»XON(Il,yON(IJ,CAPPA{II,DYOXO(I|,ALPHAtIJ,S 
1 » ,SDEL 

3*iO NBOSV=NBOYs 

IF (NN$D,Cq.o> go TO 350 
NS=1 

3R5 IPO=NB0YS*NS 
‘ lNSD = I+NSDSOYfNS J 

IENS0=I*1 . 

WRITE C6,610IIB0 

WRITE (6t615»fI,XON<I>»YON<IJ,CAPPAri»,DYC)XOtI},ALPHACII, 
IIBNSO.INSD) 

NS=NS+I 

IF (NS.LE«NM$D> go to 3<t5 
NBDVSrlBD 


WRITE OUT CLOSURE COORDINATES 

3S0 IBD=NBDYS+1 

IFCIVORT.EO.n GOTO 3S5 

WRITE «6t5l5IIBO,fI,XONtIJ,YONtlt,IrITOPTR,TTOPT51 
IF CNBDSV.NE.3J GO TO 3S5- 
ieO = IBD-» J 

WRITE (fc»5I5)IBD,{rvXONCI»,YON(II,lrITOPT6,TTOPT7> 

355 WRITE <6.S*iSICXRAK fl> ,YLOfI> tYHIlITjNYCI J,I=1,NRAKES ) 
IFtPR06.NE»D2T£ST> CALL AREAA 


4650 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4 8 20 

4830 

4 8 40 

4 8 50 

4860 

4 8 70 

4880 

489D 

4900 

491Q 

4920 

49 30 
.4 940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 

5050 

5060 

50 70 
5080 
5090 
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A 

A 


C( ( Ct ( < CURVATURE PLOTS 

C 

LEL=6 

CCMCII IF IPLOTC IS NOT ZERO, PL 
C( ( C { I I 

IF (IPLOTC. EO.O) GO TO 405 
IFC IPLOTC. LT.D) LEL=4 
LE=C 


A 

({(e(c<(((C(((((((f({(t(C((((((((C(A 

A 

A 

OT THE CURVATURE VS. SCIF IPLOTC .GT.QA 
OR VS.X (IF IPLOTC .LT.OA 

A 

A 

A 


5110 
5120 
5130 
5140 
5150 
5160 
5J 70 
5180 
5190 
5200 
5210 
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CtJe«(« LEA = LAST PT. ON SHROUD 
LEArITOPTt|-l 
LL= 1 

ceta(< TEST EACH SHROUD PT . FOR II IN RANGE OF X-AXIS 
C((f{J< 21 BEFORE OR AFTER HIGHLIGHT 

3J FINITE CURVATURE 

360 LEE=LL+NBDPTSm 

IF tXOM(LEE).GT.(XX*EXEP+XMIN)> GO TO 375 
IF rX0N{LEEI.LT.X0NtLEE*n.AMD.LEE.LT.LEEHI> GO TO 365 
IF (CAPPA (LEE I.EQ.99999. ) 60 TO 375 
LF=LE-H 

DISTfLEI: SONtLEE) 

CAPPER(LE»= CAPPA«LEEI 
C(((<(( FLAG THE HIGHLIGHT 

IF tXON(LEE).GT.XON(LEE-»lH GO TO 370 
36S IF(LEE.LT.LEEHI> LEEHIrLEE 

C((<({( USE ABSOLUTE VALUE OF CURVATURE ON EXTERIOR OF SHROUD 
IFICAPPERILEJ .LT.O.T CAPPER ILE l=-CAPPER C LE J 


A 5220 
A 5230 
A 5240 
A 5250 
A S260 
A 5270 
A 5280 
A 5290 
A 5300 
A 5310 
A 5320 
A 5330 
A 5340 
A 5350 
A 5360 
A 5370 
A 5380 
A 5390 


370 IF(IPLOTC.LT.O) DISTt LEI=XON < LEE) A 

Ct(t<(( IF CURVAT. -VS.-X PLOT IS NEEDED AND HIGHLIGHT HAS BEEN REACHED, A 
C(t<((( PLOT THE FIRST FRAME (INTERNAL SRPOUD PTS . I A 

IF (IPL-OTC.LT.O.AND.LEE.EO.LEEKI) GO TO 380 A 

375 LL=LL-»1 A 

IF tLL.LE.«IT0PT4-l-NBDPTS(U JI GO TO 360 A 

380 CALL PL0T(XX,0.t-3) A 

C(t({(( IF THE SECOND X-CURVE (EXTERNAL PTS.) IS BEING PLOTTED, DO NOT A 

C(((({( generate new SCALE FACTORS. USE THOSE OF THE INTERNAL PLOT. A 

IF (LFE.GT,LEEHI.ANO.IPLOTC.LT,0* go TO 385 A 

CALL CSCALECCAPPER,Yy,LE,l,lD,EXHIN,DEEX ) A 

385 CAPPER(LE*1 »=EXHIN A 

CAPPER(LE-*2)=DEEX a 

IF (LEE.GT.LEEHI.AND. IPLOTC.LT.OI 60 TO 390 A 

CALL CSCALE(DIST , YV , LE ,1 , 10 ,E XHIHD ,DEE X D ) A 

390 D1ST(LE-»1 ) = FXMIND a 

DISTtLE+2 )=OEEXD A 

IFdPLOTC.LT.OJ DISTILE + 1)= XHIN A 


54Q0 
54 10 
5420 
54 30 
5440 
54S0 
5460 
5470 
548P 
S49Q 
55DC 
5510 
5520 
5530 
5540 
5550 
5560 
5570 


IFtIPLOTC.LT.O) DISTlLE+2)= EXEP A 

Ct((tt( ORAU AXES FOR CURVATURF PLOT A 

CALL PL0XISfXX,YV,DIST(LE + 2) .CAPPER (LE*2 > ,0 IST( LE + 1 ) .CAPPER (LE-H ) ,A 
1 .25, .25,0,0, LEL, 5, 1,2) A 

CALL LINE lOlST.CAPPFR ,Lf ,1 , 1 ,3,0IST(LE+ 1 ) ,Dl ST ( L E +2 J , CAPPER CLE+1 ),A 
1CAPPER(LE*2) ) A 

C(I((U DRAW SEGMENT MARKERS A 

DO 400 HEH=1,HH A 

IF(IPLOTC.LT.O) BAGSt HEMlrBAGXCHEH) A 

IF(ZAP<MEM).LT.0..AN0.NZAP(HEH).GT.LEEHI ) ZAP (HEM )=-2AP(MEH) A 

IF(ZAPtMEH) .EO. 99999. ) ZAP<MEM)=YY*CAPPER (LE*2> ♦ CAPPERtLE + 1) A 

IF (LEE.GT.LEEHI.AND. IPLOTC.LT.OI GO TO 395' A 

BACS(MEH)r(BA6S{KEHT-DIST(LE*l I )/DIST(LE+2) A 

2AP{HEhJ = (2AP(MEH)-CAPPER«LE + 1) ) /CAPPER (LE + 2 ) A 

IFdPLOTC.GT.D.AMO. N Z AP ( HEM ) ,LT. LE EHI ) CALL SYMBOL ( BAGS (HEH ) ,ZAP C A 
IMEK ) , .2,1 ,C.,-l) A 

395 IF dPLOTC,LT.O.AND.BAGS{HEH).GT. (XX*EXEP-»XHIN»1 60 TO 400' A 

IF( (NZAPIMEM) .LE.LEEHI .AND.LEE.EQ.LEEHI ) .or. (NZAP (HEM » .GE.LEEHI.ANA 
ID.LEE.NE.LEEHl ) ) CALL SYMBOL (BAGS (HEM ) , 2 APtHEH) , .2 ,1 .0- ,-l I A 

400 CONTINUE A 


IF (LL.6T. dT0PT4-l-NB0PTS (1) I.OR.LEE.GT.LEEHI.OR .XON (LEE ) . EO .XON( A 


5580 
SS90 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5 7 00 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
576C 
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ILEAJJ eo TO 4 D 5 
LErO 

CAtt SYH 0 OLCXX-. 5 ,Yr~. 5 ,. 3 t 52 ,O.»-l I 

GO TO 375 

«ut<f {(((((<( {(<<(<{(( 

ADVANCE THE PLOT ORIGIN FOR THE NEXT CASE 
4 D 5 CALL PLOT tXXjO. ,- 3 J 

Cteu(« IF the CASE IS NOT TO BE REWORKED VIA FeSSLER, BEGIN NEXT 
IE flAB.LE.Dl GO TO 410 
REWIND 4 
NIN =4 

DELS =DSAWE 
GO TO 20 

41 D IF {IREDONm.EQ.OI GO Tq 10 
REWIND 4 

LPNCHOr IRE 00 N {21 
IPLOTA= IRED 0 Nt 3 ) 

IPLOtC= IRED 0 NI 4 I 
IREAO = IRED 0 NC 5 ) 

IRE 00 N( 11 = IREDONIll- 1 

ORIGINAL CASE OUTPUT ON UNIT ^ FOP ACCEPTANCE AS 
c BY DIRECT interpolation OPTION C XYCALC »FE 5 S LER) 

^WRITE ^‘.‘JTSlIDENT.PROB^NOG.LPNCHO^IPLOTA.IPLOTC.IAB.aREOON 

DO 425 I= 1 ,NBDYS 

IF(N 0 DYS.EO. 2 .ANO.I.EO. 2 J TYP( 1 )= 2 . 

IF {I.EO.l i 60 TO 435 
KA= KAYtI-l )-*2 
GO TO 420 
4 15 KA =2 

42 D WRITE f 4 t 440 ) 7 YPlI J 
«B= KAYH)-I 
KA 6 =KA -1 

WRITE <*t, 445 JX 0 N(KABl ,Y 0 N{KAB 3 
WRITE 14 , 450 I(XON{J),YON{J 1 ,J=KA,KB) 

KC=KAVtIl 

WRITE ( 4 , 4551 XON(KC 1 ,YONCKC) 

425 CONTINUE 

IF tNM 5 D.E 0 . 0 j 60 TO 435 
WRITE ( 4 . 460 JDELSN 0 
NTOT =0 

DO 430 N= 1 »NNSD 
NKA 1 =XAY(NB 0 yS>-» NTOT -*1 
NTOT= NTOT* NSOBDYtNl 
WRITE ( 4.465 IXONCNKAl I. VON CNKAl » 

NA =mKA1*1 

- NB =MKA 1 * NSDBDYfNJ ~2 

WRITE { 4 , 450 MxONt JI, YONtJJ ,J=Na,NBI 

NC =MB *1 

WRITE ( 4 . 455 JXONtNC )» VONtNC J 
4 30 CONTTNUE 
435 NIN =4 

REWIND 4 
60 To 2 G 

440 FOHHAT{F 10 . 2 ,IOH 0 . 


A 

A 

A 

A 

A 

(( ( (({A 
A 
A 
A 

JOB A 
A 
A 
■A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

INPUTA 


(II ,I=A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


5790 
58 CO 
5810 
5820 
5930 
5840 
5850 
5 S 6 C 
5870 
5880 
5890 
59 C 0 
591 D 
5920 
5930 
5940 
5950 
5960 
5970 
5960 
5990 
6 0 0 C 
6010 
6 0 20 

60 30 
6040 
6050 
6060 
6070 
6080 
609 D 
6100 
6110 
6120 
6130 
6140 
6150 

61 60 
617 Q 
6180 
6190 
6200 
6210 
6220 
62 30 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
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original page is 


F0RKflT|lX,llH5B0DYIN ?=<fF10.6,lH,,Fia.5t‘»H», ) A 

450 FC!RMAm2X,lH(,Fl0.6,lH,,FlD.6,3H>, } A 

4SS FORKATtl2X,lHJ,F10.6,lH,,F10.6,3HJ S/lX , 20H* AUX IN. OONE^.TRUt. S» A 

460 F0RMATieFlQ.2) A 

465 F0RKAT13X.7H-1 /I X , 1 IK SB OO YIN 2 : < ,F 1 0 . 6, 1 H, , F 1 □ . 6 ,4H J » 1 A 

470 F0RKATUH-»,13X.6HRE0ONE) A 

475 FORMATt 2A6,T‘>,2I1, 1 2, 12X rl 1 » 9X , 31 1 , 12) A 

A 

FORMATS A 

A 


6360 
6370 
63S0 
6390 
6400 
64 XG 
6420 
64 30 
6440 
6450 


C ■ A 6460 

460 FORMAT tlHO»10X,16HNO. OF BODIES = ,F2 . 0 ,5X , 7H0EL S = ,F6 . 3, 5X ,9HDE A 6470 

ILSHX = ,F6.3,5X,6KXRI = ,F1D.6) A 6480 

465 FORMAT J20I4) A 6490 


49D FORMAT! 2A 6 , 14 , 21 1 , 2T 2 , lOX ,1 1 ,9X , 31 1 ,2 12 ) A 6500 
495 FORMATt ZA6,I4,2I1, 12, 12X , 1 KD , 9X ,31 1 , 12) A 65)0 
5DD FORMAT (9A6» A 652^ 
505 FORMAT t 1 X/1 X 23HB0 D Y 1 CO-ORDINATES - X 1 2X1 HY lOX 5HKAPP A1 OXSHDY/DX 1 A 6530 


1QX5HALPHA5X1HS8X6HS-S(Z),8X,6KDELTAS/IX) A 6540 

510 FORMAT t 1 X/ 1 X23HB0 DY 2 CO-ORDINATES - X 1 2X1HY 10XSHKAPPA10X5HOY/DX1A 6550 
10X5HALPHASXIHS,8X,7HSM2>-S,BX,6HOELTAS/1X) A 6560 


SIS FORMAT flX/lX5HB0D 
1 ,E13.5)) 

520 FORMAT C9XI4,3XE12 
525 FORMAT tSMlCASE A6 
530 FORMAT (IHDI 
535 FORMAT tlX/lX,23HB 
1 HDY/0X,10X,5HALPHA 
540 FORMAT t/lDX,30H I 
12)=«I4,8H NHUBHX=, 
545 FORMAT tlX,4HXRAK, 
550 format (3e8.5,I3) 
555 FORMAT (BFIO.Z) 

560 FORMATt F10.2,10F7 
565 FORMAT t/5X,30H IN 
1 I =,I4 ,7H NTf3I = ,I4 
570 FORMAT (1HD,10X,6H 
115.4/22X,1HY,1P2E1 
575 F0RHATtlH0.7X,9HEX 


Y I1,17H CO-ORDINATES 

.5,7E13.5t 

,10X,9A6/1X) 

ODY 3 CO-ORDINATES - X 
,5X,1HS,8X,6HS-S(3),8X 
NPUT FOR THE COMBINE P 
14, 4H NP=,I4/) 
10X,3HVL0,11X,3HYHI,16 


.4/F7.5,F7,2> 

PUT FOR THE COMBINE PR 
,8H M U<“X ,I4,8H NSPL 
ENREED,10X,13HSTRAIGHT 
5.4 ) 

P0HENTS,1DX,12HSUPEREL 


- X12X1KY/1X/!9X14,3XE12.5A 

A 

A 

A 

' A 

,12X ,1HY ,1CX ,5HKAPPA,10X,5A 

,6HDELTAS/1X) A 

RQGRAH,7H NT{1)=,I4,7H NTt A 

A 

X,3HNDY//,13E14.5,5X,I3)) A 

A 

A 

A 

0GHAH,7H NT{1)=,I4,7H NT{2A 

MX=,14,4H NP=,I4/^) A 

LINE/IIX ,F6.3,5)T,1HX ,1P2EA 

A 

LIPSe77X,4HP = ,F6.3,5X,1HA 


65 70 
65 80 
65 90 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
668C 
6690 
6700 
6710 
6720 
67 30 
6740 


IX ,lP6E15.4y7X,4HQ = , QPF6 . 3 ,5X , IH Y, 1P6E1 S .4 ) A 

5 8D FORMAT 1 1 HO , 1 OX ,6HENREE0, lOX , lOHLEH N I SCA TE/1 1 X,F6 . 3,5 X ,1HX , 1P3E 15 . A 
14/22X,1HY ,1P3E15.4 J A 

585 FORMAT t IHO , lOX ,6H ENREED ,10X ,7KELLIPSE/ 1 1 X ,F 6 .3 , 5X ,1 HX ,1P4 E15 .4/22 A 
1X,1HY,1P4E15*4J A 

590 FORMAT f 1 H D ,2X , 13H**#* HUB A 

S95 FORMAT (lH0,2X,iaH*>*** SHROUD *tt*A**i A 


600 FORMAT 1 1 HO ,2X , SPLITTER ♦«*♦) A 

605 FORMAT 1 1 HO , IQX ,6HENR EE 0 , 1 OX , 5HCUB I C / 1 IX ,F6. 3 ,5X , IHX , 1P4E15 .4/22X , A 
llHV,lP4ElS.4f A 

610 FORMAT f 1 X / 1 X.SHBOD Y , I 2, 17H CO-ORDINATES - X , 12X , I HY , lOX ,5HK APP A ,1 A 


t0X,5HDY/0X,lQX,5HALPHA,5X,lH5,8X,6HS-5(2 ) ,8X , 6HDELTAS/1X ) A 

615 FORMAT 19X,I4,3X,E12.S,5£13.5> A 

620 F0RHAT12F10,7) A 

626 F0RHAT!8HD BODY ,121 

675 F0RMAT(6F12.5» A 

630 CALL PLOTt 3.,D.,-3J A 

CALL PLOTID A 


6750 
676P 
677D 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6 870 
6880 

6890 

6900 

6910 
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$TOP 

END 


A 6920 
A 69.10 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 




K 

SUBROUTINE SIHO K 

K 

PURPOSE K 

OBTAIN, SOLUTION OT A SET OF SIMULTANEOUS LINEAR EQUATIONS, K 
AX^B • K 

USAGE ■ K 


call SIH0<A,B,N,KSI K 

K 

description of parameters k 

A - MATRIX OF COEFFICIENTS STORED COLUMNWISE, THESE ARE K 

DESTROYED IN THE COMPUTATION. THE SIZE OF MATRIX A IS K 
N BY N. K 

B - VECTOR OF ORIGINAL CONSTANTS (LENGTH N>. THESE ARE K 

REPLACED BY FINAL SOLUTION VALUES^ VECTOR X. K 

N - NUMBER OF EQUATIONS AND VARIABLES. N MUST BE .GT. ONE. K 
KS - OUTPUT DIGIT K 

0 FOR A NORMAL SOLUTION K 

1 FOR A singular set OF EOUATIONS K 

K 

REMARKS K 

matrix a’must be general. K 

IF MATRIX IS SINGULAR , SOLUTION VALUES ARE MEANINGLESS. K 

AN ALTERNATIVE SOLUTION HAY BE OBTAINED BY USING MATRIX K 

INVERSION (HINVf AND MATRIX PRODUCT fSMPRD). K 

K 

SUBROUTINES AND FUNCTION SUBPROGRAMS REOUIPEO K 

NONE K 


CCCC 

0010 

D020 

0D3D 

00«0 

CC5D 

0060 

□ 070 
COSO 
0090 
0100 

□ 110 
0120 
0130 
0140 
DISC 
□ 160 
0170 
0180 
0190 
□ 2CD 
0210 
Q2Z0 
0230 
0240 
Q2SD 
0263 
02.70 
0280 
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c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


METHOD 


METHOD OF SOLUTION IS BY ELIMINATION USING LARGEST PIVOTAL K 
DIVISOR. EACH STAGE OF ELIMINATION CONSISTS OF INTERCHANGINGK 


.element!^ necessary to AVOID DIVISION By lERO OR S^ALL 

THE FORWARD SOLUTION TO OBTAIN VARIABLE N 1$ DONE IN 
N STAGES. THE BACK SOLUTION FOR THE OTHER VARIABLES IS 
SUCCESSIVE SUBSTITUTIONS. FINAL SOLUTION 
values are DEVELOPED IN VECTOR 8, WITH VARIABLE 1 IN B(1I 
V,ARIARLE 2 IN BC2) variable N IN B<N). 


’ IF NO PIVOT CAN BE FOUND EXCEEDING A TOLERANCE OF G O 
the matrix IS CONSIDERED SINGULAR AND IS SET TO 1 ’ 

TAlirr^jikiA-c- ^ ^ -r ^ ^ - •.**-* 


tolerance can be modified by REPLACING'wrF^RST'sTA^EjEN^. 


K 

K 

K 

K 

K 

K- 

K 

K 

K 

K 

K 


029D 

C3D0 

D3ID 

0320 

0330 

03R0 

C350 

0360 

0370 

□ 3PD 

0390 

TRCP 

OHIO 

OB20 

C430 


C 

SUBROUTINE SIHQ (A,B,N,KS) 

DIMENSION Afl), B<1J 
C 

C FORWARD SOLUTION 

C 

TOL = O.D 

KSra 

JJ=-N 

DO 45 J=I,N 

JY=J+1 

JJ=JJ+N*1 

B IG A ro 
1T=JJ-J 
DO 15 I=J,N 
C 

C SEARCH FOR MAXIMUM COEFFICIENT IN COLUMN 

IJ=IT*I 

IF (ABSfBIGAJ-ABS(A(IJ)U 10,15,15 
ID 8IGA~A(IJ> 

IHAXn 
IS continue 
c 

c test for pivot less than tolerance {SINGULAR KATRIyl 

IF tABS CBIGA>-rOLI 20,20,25 
?0 KJ=1 
RETURN 
C 

c INTERCHANGE ROWS IF NECESSARY 

25 Il=J*N*CJ-2) 

IT=IHAX-J 
DO 30 K=J,N 

12=1 1+IT 
SAVE = AU1> 

A III )=ACIZ) 

A (I2J=SAVE 


..K 144D 

K 0450 
K 046D 
K 0470 
K C480 
K 0490 
K 05 00 
K 0510 
K C52r 
- K 0530 
K 0540 
K C5Sn 
M 0560 
K ■ 0570 
K 0580 
K G59D 
K 0600 
K D61D 
K D62D 
K D630 
K 0640 
K 065G 
K 0660 
K 067Q 
K 0680 
K 0690 
K D700 
K 07in 
K 0720 
K 0730 
K C740 
K D75 0 
K DT6D 
K 0770 
M 0780 
K 0790 
K C8G0 
K 0810 
K D820 
K 0830 

K 0840 


K D8SD 
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OIVIOC eOUATION BY LEADING COEFFICIENT 

3G A II ) /BIGA 

SAVE = P,IIMAXJ 
B (IMAX]=B t J1 
B fJ):SAVE/BIGA 


ELIMINATE NEXT VARIABLE 

IF tJ-N) 3S»50»3& 

35 rQS=N#(J-lI 
DO MS IXrJ¥,N 
IXJ=I0S+TX 
IT-J-Ix 
DO 40 JX=JY,N 
IXJX:K#( JX-I >+IX 
J JX = rXJX + lT 

40 A (IXJXir A (IXJX)-l A I IX J J#A « JJXI ) 
45 B{IX):B(IX5-{B(J)*AfIXJ)> 

BACK SOLUTION 

50 NY=N-1 
1T=N+N 

00 55 J=1,NY 

I Arii-j 

IP:N-J 

1C=N 

DC 55 K=1,J 

B (IBI:BtrB}-A(IA)*B(IC) 

IA=IA-N 
55 IC=IC-1 
R ET UR K 
EAD 




K 3860 

K 0871: 

K 3S8C 

K 0890 

K 0900 

K 09in 

K ' 092D 

K 393C 

X 0940 

K 0450 

K C96C 

k 0970 

K 0960 

K 0990 

K JDGO 

K J □ 1C 

K 3 car, 

K 10 30 

K JD4C 

K 1050 

K 1060 

K 107n 

K 1080 

K JC9C 

K HDD 

K inr 

K 1 1 2D 

k 1130 

K • 1140 

k 11 50 

K 1160 

K 1170 

K llED 

K 1190 



n o o 
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c 

c 

c 


STPflIT IKflSHR) 


* REGULAR STRAIGHT SE6HENT 


SUBPOUTINt . 

E 
t 
E 

CCHHON /HftIN/ XINHr>,rlNllD) ,DrLSHX,PI02.DE:LSl,IHUE f 

^‘^!?r£L'^2?:S!'^ = *P?‘:!!='®*‘*^3).YBKt20j,xoH(5-cDJ.YCNf5c-0>,DyDX0C5C .:r 

B 


1 1 .ALPHA{5CO),CAPP« C5C0) t SON f 5 OD ) » PIOl e Q 
CPHHOH /SS/ NBOY1,NBODY2,TVPBCY,NPDYS 
CCHPOK /FNST/ MFIPST 
COHMO^ /NHIGH/ NSPHG,KLAST,XLflSTTSCOJ 
KFIRST=K 

XTEST=XINt2>-xlNn J 
YTEST::YIN(2J.YINn ) 

IF 1X7EST.EO.C. D) GO TO 1C 
DYOXCrYTEST/XTESI 
AtPHAC=ATANtTTEST/XTEST 1 
GO TO 15 
10 DYCXC=99999. 

ALPHAr=PI02 

CALCULATE DFLSNW 

15 STCT=SQRHXTEST#*7*YTFST*«2) 

APCSrSTOT/OELSl 

AlNDS=AINTf ANDSI 

TEST=ANDS-A1KDS 

IF «TrST.GE.t5l AINRS=ATNPS -*1 

DELSNVzSTOT/AINOS 

pels; . *. '.OtLSNW) 

OELSl-DELSNU 
OELSrpELSl 
IF tYTCST) 20,35,20 
?0 ir ( XTEST. E O.C. 0) GO TO 5C 
DYOXO fK + 1 IrfynxC 
ALPHA (K + l JrALPHAC 
S1G1. = 1.C 

IF JX7EST.lt. D.D) SjGNr-l.L 
¥rN(K-»l)rYON<K}*STGN*rE LSNU+S TNJALPHATK + III 
IF tKSPHG.fC.D 60 TO 25 
XOMK+1 J :XON(NL AST-U 
RLAST=NLAST-i , . 

CO TO 22 ' ■ 

25 XCR f K*1 J rXONL K I +51 GN*DE ISNU+c OS < ALPHA(K + iI) 

JXONIK + 1 ) -XOM ( K )) * *2 + J Y CHI K+ J ) -Y OH ( K ) ) *• 2 J 

C^PPAfK + J, )™C»C 


11 J.GE!xlN(2n^C0*To''‘*'°"**^^^’ .L E . XI N ( 2 ) . 0 R . X TEST. GT. 0 .C-. AHC! . XOH f K -P 


P 

B 

b 

P 

El 

fc 

R 

P 

E 

P 

fc 

e 

p 

B 

P 

E 

P 

P 

E 

R 

E 

' C 

f 

P 

E 

E 

E 

B 

S 

P 

F 

t 

f; 

E 

p 

p 

p 

B 


K:K-*1 

GO TO ZC 

35 OYDXOfK*! J = 3.C 
alpha fK-»l J = C.C 
SI6K=1.C 

If IXTEST.LT.P.OJ SlGh=-l,r 
IF INSPHG.ro.C) GO TO i|P 
X(;NfK<Il=XON(NLAST-l) 
NLAST=NLAST-1 


cccc 

CCIC 
CC2C 
CG3C 
C09C 

cc5r 
I c & r> 

CC7C 

CCfC 

e;c9c 

-cite 

Clio 

C12C 

■ C130 

ci4r 

CISC 

C16C 

C17C 

Elec 

ci9r 

C2GC 

G21C 

C22C 

C23r 

C29C 

C25C 

E?6r 

C?7r 

CPeC 

C29'- 

C?CG 

C51G 

CI2: 

c2 3r. 

C3M2 

E35C 

C36C 

11372 

C3flC 

C39C 

CA;r- 

E<1 1C 

riizc 

i>iZZ 

CMHZ‘ 

■ CMSO 
C«(6C« 

£A 7? 
CRG? 
EARr 
C50C 
C51C 
C5z: 

cssc 

C54: 

css: 

C5b: 

C5 7r. 
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er TO 45 

4C XONCHlJrxOMKI+SieM+fiELSNu 
45 Y0M(K41 irVONlKl 

SOW tK*J l = SON <K>*SORT( t XOM (K+1 > 
C/IPPAIK+1)=C.D 

IF tXTEST.L'T.D.Q.AND. xOWCK + l) . 

III. GE.XINI2J) BO TO 55 

IF t4PStX0N(K-UJ-xiN(2ll.lE.l. 
lE.l .OE-44DELS J GO To &C 
K=K *1 
BO TO 35 

5:: DTOXOtK*] »r99999 , 

ALPHA tK4 n=PI02 
STGN=1.0 

IF (YTEST.LT.O.CI SI6N=-1.0 
XONtKtl IrXOMtKI 
YCWrK-il )=YOH(Xl+SIGN*DELSWU 
SOM t K4J jrSOMtKJ 4 SqRT((XOM(K 41) 
CAPPA (K+ll=O.C 

IF CYTEST.LT.C.C.AND. YOMtK+11 . 

I I J. GE.YlN<2 J ) GO TO 55 

IF tA'>S(XCM(K-*l)-XIN{?)).LE.l. 
1E.1.CE-4-ADCIS) GO TO 60 
K=K 41 
GO 70 5; 

55 IF tAP$(X0N«K4I)-XlW(2)),LE.l . 
IE .1 . D5-3*DEL5 > GO TO 60 
K-K -1 
6 C, K=K + 1 

CC 65 KAL=KFIfiST,K 
65 ALPHA<KAL1=ALPHA(KAL)/P101fi3 
KFTURM 
CMD 


F 

E 

e 

-XONIKJ T*»24fVCf.'U4 ll-Y0NfK))« + 2 J fc 

F 

LE. XINf2) .OR.X IEST.GT.0.0. AND.X0HIK4E 

B 

CE-4tnELS . and . APSCYCN(K4J}-YIM(2)».LC’ 

E 

E 

B 

b 

E 

E 

B 

r 

p 

-XON( K U**24{Y0NtK* 1 J-YOMK ) )**2 ) B 

E 

I.F.YIKM2J .0R.YTEST.GT.n.0.AMD.Y0M(K4B 

E 

0E-44DELS .AMD. AES( Y CNIK41I-YIN(2I J.LS 

B 

e 

B 

0E*5*DELS. ARO, AES(Yr,N(K4lI-YIMf2n.LE 

E 

P. 

E 

F 

£ 

P 

E 


C5EC 

C59r 

C 6 cr 

C6I0 

C62G 

C 630 

C640 

C65C 

C66C 

C67D 

C66C 

C69r 

C7CD 

C71C 

C720 

C73E 

5742 

C75C 

C76Q 

C770 

C7P0 

C792 

C8CD 

ceic 

C82C 

CB3t 

0842 

C8 5C 

£862 

£872 

£8 60 

C89C 

C9CC 


ORIGINAD PAGE IS 
OF POOR QUALITY 
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SiePOUTIMt FNSTRH (K) 


final straight SEGHCNT on THl hub and shroud 


CCKNON /MAIN/ XI N CIC J , Y IN 1 1 3) , DEL SM X ,PI 02 , DE 
COMMON /FOft?.S.S/I0,DELS,XBK(2C.J ,yBKf?0J.,X0K(5 
1 I »ALPHAJ6C0J»CAPPA{50O»,S0N{5DD),PI0l8CI 
COMMON /SS/ NeDYl,NPO 0 Y 2 ,TYPaDY,NEIDYS 
COMMON /FH5T/ NFIRST 
NFIPSTrK 


LSItI KUR 
CDI,YCKt5£:D>, 


C 

C 

OYDXOTSCCC 

C 

C 

C 


OI-OELSl 
DELSTPrOFlSHX 
ytest=yin(2i -yi n ( 1 ) 

XTESTrxiN{2J-XINCl) 

A SIGN-1. S 

If TXTEST,Lt'.C 4C» ASlCNr-1.3 
ISTARr: 

SSEGrSORT <XTEST**2+YT EST*+2 ) 

IF »XTEST«EQ,3. Q) GO TO 10 
IF IVTEST.EO.O. 0) GO TO !■; 
DYDXCzYTCST/XTEST 
ALPHAC=ATANIYT£ST/XTCST) 

SIN AL-SINt ALPHA C) 
COSALTCOSCALPHAC) 

GO TO 2E 

i: DYCXC=SlGNf99999.,YTEST ) 
ALPHAC=516NtPI02,YTEST) 

51NAL:l. j 
COS*L-C.3- 
6C TO 2C 
IE DVDXC=3.0 
ALPHAC=2.C 
SINAL=C.C 
COsALrl.3 

'>0 DYDXOtKtDrpVDxc 
ALPHAfK*l)=ALrHAC 
IF (OS.GT.DELSHXJ GO To 25 
GC TO ME 

2S IF (ISTAP.NF.O SO TO MS 
DSLASTrOS 
XON«K-*1)-XONCK> 

VCN <K-*U-YONIK> 

ICCUKTrC 

TG XSAVE=XON(K+2 l-XINt 13 
YSA VC=Y0NfK+l)-YIN ( 1) 

SSTABrsORT < XS AVE+*2+YSAV£ **2I 
ASTAR=(SSE6-SSTAR)/DELSTR 
ATEST=ASTAR-FL0AT(1F1XCASTAP) > 

IF TATEST.6T, .5 ) ASTARTASTAR*l,n 
NSTAR=lFIXfASTAP> 

1 STAR=1 

IF CMSTAR.EO.EJ GO TO 35 
DS=»SSEG-55TAR1/FL0aT fNSTAR) 

IF IDE.GT.DSLAST 1 GO TO 35 
ir IICOUNT.GT.O ) K=K+1 
GO TO <15 
35 KrK-1 

IF IK .GT.NriflST ) SO TO MO 
K:=NriRST 

CALL STRAIT IK»CI 

K=K-1 

60 TO 50 


C 

C. 

c. 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CCEC 

CCIC 

cc 2 r 

CD3C 

CCMC 

CC5G 

ECfcC 

CC7C 

cc?o 

CC90 

ClCC 

cno 

C120 

C 17 C 

cmc 

CISC 

ci 6 : 

C17C 

CISC 

C19C 

C2CC 

C2U 

C22C 

C23: 

C2Mi: 

C25C 

Cztr 

CZ7C 

C2 6C 

C29C 

C3cr 

C31C 

C32C 

C33C 

C3MC 

C3SC 

C36C 

C37C 

C3sr 

C39E 

CM or 

CMlC 

CM2C 

CM3: 

C<»<!C 

CM5C 

CM6C 

CM7C 

CMtr 

cli 5 -: 

CECC 

C5IC 

C52C 

C53C 

c>;<ic 

C55C 

cstc 

C57C 

C5SC 

C59( 

C6Ct 

C6H 
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<i5 


DSLfcSTrSORTICXON<K-l)-XON(K)l +♦ ^* { Y ON « K -11-Y Ch t K ) 

DELSYft=DSLAST 

ICOUNT=ICOUNT+1 


00 TO 3 C 

XON CK-*1 )zXON«K)+ASIRN*OS*COSflL 
YON YONIK ) +ftSl GN*DS*SINRL 

S0NIK«1I=S0N{K )*SORTI tXONfK+i >-XON(K >}**2-* 
C APPA IK»1 >:r.O 


IYCMK+n-Y 0 N«Kn** 2 ) 


IF I APS !X0N<K*1 )-X IN| 2 > ) -LE •• QD 1 *ES» and-. XTES 7 .NE . r*OJ GO TO SC 
IF I APS I YON CK -*1 )-YINI 2 ) J *LE .. - 01 *DS . AND.XirS 7 .E 0 . C.Q > GO TC 5 C 


CllUtt IS THE CURRENT POINT PAST THE NEATEST ENOTOIN'T OF SEGHENT 
CClCCtC VIOUS TESTS HERE ONLY FOR APSOLUTE PROXIMITY TC ENDPOINT* 

IF <APStYONTK+ll-YIN(lJ ) .oT.ARS f YTESI JIGOT qS: 

IF (APS<X0N{K-»1J-XINJ1) ).GT.ABStXTEST)>GOT05C 
K=K + 1 

IF CISTAR.EC.Ql DS= 0 S *:.2 
GO TO 2 D 

delsi=dels 
XCN tK*l I=xrN< 2 * 

YCN tK«l )=YIV<2> 

NFDY1=K-»1 

KrK-»l 

DC 55 KAL"NFIPST,K 
S 3 AlPHAfKALl = alpha IKAU /P 101 P 3 

RETURN 

ORIGINAL' PAGE ES 
OF POOR QUALITYf 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

IPPC 

c 


c 

c 

r 

c 

t 

c 

c 

c 

c 

c 

c 

c 


Cfe 2 F 

C 63 G 

C 6 H 0 

cfesr 

C 66 C 

C 6 TC 

ceec 

Cbsr 

C7CC 
CTlO 
C72C 
C7 32 
C 7 J |2 


C 772 

C 7 Sr 

C 79 L‘ 

C 8 CC 

C 810 

C 82 C 

C 830 
r g n 

:& 5 ? 

CE 6 D 

C 87 : 

taer 





SUBROUTINE FRSTSH {KJ 


C 

c • F I RST STRAIGHT S E EjN T^SH R OUD 

C 
C 

c 

c 


DODO 

0010 

OD^O 


IF TH ERE IS NO HUB INTERCHAN6E POINTS <X1,Y1) AND tX2,Y2I 

AND treat like final straisht" section on. the hub;~' 

THEN REVERSE XON AND YON ARRAYS 


0 
_0 
p ■ 
_D_ 
D 
D 


COHHON /KkjHJ xiNrjcVTYiNtID),DELSKX,>lb2,DELST,‘lHUB7DELNEkr' 

_C0HHpN_(rFqR3SS/l0,DFLS,XBKCj?0L.TBKC.2D>,XONtSD0J,Y0NC5DDl,BrDX0f5O0D 
1 » »ALPH At50D>TC APRA<5DDIyS&N(500>,PI018g " ' “ ‘ D 


0030 

POND 

-0050 

ODfe O 

0070 

O OSQ 


COMMON /SS/ NBDYl,NB0DY2,TYPBrDYtNBDYS 

COMMON /FNST/ NFIRST d 

OlHENViOH XAC21, YAlfr. DSV(5DD)» A'sVtSOOl, XSVCBOOl, YSVC500J, SSD 
IVtSDOJ ' B 

SON tK i=0.'0 ■ D 

_ IF IlHUS.EO.l.ANO.DELNEW.EO.O.J G0T025 

bo Id 1 = 1,2 ■ 

XACn=XINtI 1 

io vAur=Yifnij ■■ 

XINtl1=XA(2l 
X IN »2 >=)CA 7T’> 

YIN{1T=YA I 2J 

YlN{ 2 >=VAfn 

_NFB2=K 

■ YON CK1=YIN(1 )■ 

XON (K}=XIN{ 1 1 
CALL FNSTRH CKl 
KSV=K 

KT0T=KSV-NFB'2-»r' 

DO 15 11=1, KTOT 
I=NFB2*I1-1 


0100 

0110 


0120 

0130 


0140 

0150 


0160 



0 
D 
D ' 
0 
"0 
D_ 
o'" 
D 


0220 

02^ 

'o'24D" 

02^ 

"0260‘ 

0 270 

‘02S0‘ 

0290 


KSR=KSV«1-I1 
■■ OSV IKSRr=D YOXOCii “ 

ASVIKSRJ^AL^ACy 

XSV (KSR)=XONU)r' 
•Y$V<KSR>=YONCIJ 

■'15 ssvfii =soNm 

_ DO 20 I=NFB2,KSV 
DYOXO'filrOSVClV' 
ALPHA(II=ASVfI) 


“O “0320 

D 0330 

d‘ 0340 
D 0350 
b ■ " 0360 
,0 _P3'7D. 

D 0380 
D 0390 




ORIGINAL PAGE IS 
OF POOR QUALITY 


c 

c 

c 

c 

c 


■■■ ■ XONYr»=XSV»f» . 

YON<ii=rsv<i} 

sdNtii=ssvtK5V)-ssviKSvii-n ' ■ ■ ■ ; 

C*PPA(I»=0.0 

20 continue"' ----- 

DELS l=ftBS (SON <KSV I-SON (KSV -n ) _ 

REtuRN "" ■ ~ - - 

■■lY“7Ht(rE“T[s~i~HUBr use' X Values froh fina’l straight" 

IHE HUB F^R FIRST STRAI6HT SECTION ON 

SHROUD 

Z's" X TE S T=xlir("l I -X I nTH '■ " 

JTE_S T=y I N ( 1 ) -YI N ( 2 ) 

IF (x'test.eo.d.oj go to 30 ' ’ 

OYDXC=yTEST_/XTEST _ 

ALPHAC=ATAN2fYTESf,XTESt) 

_60_T0_35^ _ „ 

3q”dYDXC=99V09/' 

ALPHAC=PI02 

"35 ■k=K'-“l' - - - - 

KBOC=NBOY1 

IF (TYP8OV.E0.3.6.AWD.NBOYS.EQ.3) NBDC=NBobY2 

„ DO_50 IrNFIRSTiNBDC 

RFEP=NBDC-»NFlRST-i 

XON(K«l»:xqN(KEEP> 

DYDX0(K«1 jr'oYDXC 


D 040D 

_o OHIO 

D D420 
D ’0430 
"b ' ' D44C 
D 0450 
o' ”04 70 
D __ 04 8 0 
0 04 90 

D aSDQ. 
0 D51D 
D , 0520 
D 0530 
D .0540 
D 0550 
D__ 0560 
D 0570 
. D ._QS8D 
D 0590 
0 0600 
0 0610 
_ P._ .Q.k? 0 _ 

b 0630 

-P 06-40 

0 0650 

__q_. 0660, 

~o“ 0670' 


44 


ALPHA(K41t=:ALPhAC 

J.F .(_I..EO.HFIR5J.}_gO ,T0 ,40 , , 

YON(K-*i )=VON(KI + (XON(KVli'-XONlKl)*OYDXC: 

IF( cost ALPHAC)»EQ ♦0.1 HRITEIfr,44) 

IFtCOSt ALPHACI.EO.O.l STOP ' 

FORHATt 53H0VERTICAL LINE NOT PERMITTED' AS FIRST SEGMENT ON BODY I 
SONtK+1 »-S0N(Kl4(X0NtK J-X0NJK+1II/C0S(ALPHAC)_ ^ _ _ 

GO TO 45 - — - 

40- Y0N(K*l.l=jr.INtll..*t,X0.M(Ktl)-XINtlll4DYDXC _ _ ' 

45 CAPPA (K+ll = C.O ' ‘ ' 

ALPHA (K+1 }=ALPHA tK*l > /PIOI 80 

K=K+1 ■ ■ — ■ - - - -. 


0 , 0680 
Q_.-'--D69D, 
0 0700 


B.-. 071 1_ 
D 0720 

,0 D730-. 

D 0740 
D „„07SCL 
0 0760 


50 CONTINUE J) _D771 

DELsf=SON(K l-SOH"(K-fj ' ' ' ' " ' o' 0780 

•*ETUtyM _ _ 0 07.90 

END D 0800 


GS 



r> n n 


62 


C 


SlCROl'TTNE TEST <TA> P 

C0K‘1O^ /HAIN/ XINUDI ,TIN{10> ,DELSKX,PI02,DCLS1,IHUP E 

COMMON /FOR3SS/IO,Dn.S»XBK C20 > . YBK {?3 1 , JfON (5CCI , Y ON f 5C0 KOVOXO I SC ' F 
I J,ALPHflJ5C01,CAPPJI(SOC!»,SOM50Q»tPI018C r 

COMMON /SPREP/ KPREP P 

IF IX1N(?J.F0.XIN(1 J> eo TO ID ■ F 

SEPl = JYINC2>-¥lNtI JI/IXlNf21-XINH) I F 

60 TO 15 • ' 

ID TrSTlrlYlNC?l-YlNni)/(XlN<M) -X'lfjtll J F 

SLP1=SIGN(99999.,7EST1 ) ^ 

15 IF t*XIWCl>,LT.XlN4H),AND.XIMnj.LE.XIKt2J).CfttfXIN<ll,GE.XIN<21.AE 
INC.XJNI 1 ) .eT.XiNfM) ) > 60 TO 20 r 

TIP = XIA.(11-xINJ2) p 

XINU»=X1N(1)+SI6NI5C.,TIP1 r 


HXIM( lJ-XJN(2JJ/TXIV(2>-XlNn ) + S16NtSC. 
?C 5LP2=(YlN{M>~riN(l»>/(XTN(H>-XIN«lM 

rotation only 

25 !'■ (SLP1.GT.SLP2I RETURN 


YlNtl )=(YIKC2I-YINC1 »1*E 
, TIP I J+YIN (2> E 

E 

E 

L 

E 

E 

E 


ECCC 
DCIO 
0020 
CC3C 
CC4Q 
CCbC 
CC60 
DC7C 
CD8C 
C09C 
Cl CC 
Clio 
C12D 
C13C 
CIUD 
CISC' 
Cite 
C17C 
C16C 
Cl 9,0 
C2C0 
C21C 
C22C 


C MIRPOP INTO XIK<1» 

C 

30. CALL PRELPS (2*0,TA,I,1> 
RETUfi’. 

ENR 


E C23C 
E 0290 
E C2SC 
E C26C 
E C27C 





ORIGINAL PAGE IS 




e'3 

OP POOR QUALITY 




SI I ROUTINE PRELPS t K 0 PE f K A T ,1 A , K 1 

,K? ) 

F 

c:c 


CCKHOr! /MAIN/ X 1 N 1 1 ) , Y IN ( 1 D> ,DE L 5^ X , P 1 02 ,DE L S I . 1 MUf 

F 

COl 


C PPM ON /F0R3SS/lD,DELS,XaK 12J ) ,VEK 120) , XON { SCO) , V ON T 5 CC ) , ny nxo C 5C tF 

C02 

J > ,A LPtlA( SCO) ,CAPPA C5GD ) ,SOM5 001 , 

piqip: 

F 

:C3 


CCHPON /SPRFP/ KPPEP 


F 

:c4 

, 

KPRCP^l 


F, 

c:5 


IL-IA 


F 

CC6 


IF (KAl.tO.l) GO TO 60 


r 

CC7 


KIC rKOOC 


F 

CC8 

1 

Xjrxinn ) 


F 

C09 


r l=YiKi 1 ) 


r 

CIC 


IF TIA.E0.5) GO TO 1C 


F 

C3 1 


XC-XIN’< A ) 


F 

C12 


YC=YlNM ■( ) 


F 

Cl 3 


GC TO IS 


F 

C14 

!C 

Xr=XIAM5 ) 


F 

CIS 


YC=Y1F'(S ) 


F 

cu 




F 

C 17 

IS 

nr AS lERi ,IL 


F 

CIF 


IF (lP.Nt.6) CO TP 


' r 

C25 


IF tAr-'S<XTN(6)l+A5S{YlN<6)).Uf.l. 

E - 15 ►OP. YIN 1^1 .E C.2a„. 1 GO 

TO 45 F 

E2L 

- 

IF (YIN< 6) .NL.-12C , ) GP TO 23 


F 

:?i 


yiNt6)--XlNt6 ) 


r 

122 


fC TO AS 


F 

:2i 

“'I 

GF TP «2S,32,35,AC,3C,AC) ,KO&C 


r 

•Z2K 


YIN(I“l = YINelAJ-TYIMie)-YIfUIA)I 


F 

C2S 


&( TO AS 


F 

E2f 

“{f 

XINUfJ = X]A.’H)-{X!K'flPI-XIN(in 


r 

E27 


6r TO AT 


r 

F2f 


Y IN’ ( I'JRYINf 1 ) - (YIN n " )-YTN 11 ) ) 


F 

125 


GP TC AS 

* 

f 

C3C 


XISII") = XIN|IA)-(XIN(1P)-XI*ICTA)) 


r 

C31 

PS 

CPNTINUF 


F 

C32 


IF IKCCE.E0.5) GO TO <=: 


F 

C33 


IF 1 K-DE .E0.6) GO TO 5S 


r 

L3A 


rfTUF'J 


F 

: 3 E 

c • 

Kfcm 


F 

C3fc 


3C TO IS 


F 

C3.7 

c c 

K rDF = ’ 


T 

C3E 


GC TO 15 


F 

C39 


DC 9r IBZK1,K2 


f 

:ac 


GC TO T65,7'‘,75,85,65,7E»rt'TD 


F 

CA 1 

'^5 

YCNTT^J^YC-TYCHdO-YD 


F 

C42 


GP TO 65 


F 

:i2 

1 J 

XPf, «IP) = X 1-fXON (IP ) -X 1 J 


r 

CAA 


GC TO S'- 


r 

CAE 

75 

YrK(I'>):Yl-(YON(IP)-Yl) 


F 

CAf 


GC TC PE 


F 

CA7 

ec, 

XONnP)rxC-(XON (IP ( -XC) 


F 

CAF 

AS 

0TCX0(IP)=-nYDXO(Jp ) 


F 

..49 

PQ 

C PNTINUE 


F 

CSC 


ir (KIU.EO.S) GO TO 95 


r 

:ei 


IF CKID.E0.6) GO TO IPC 


r 

C52 


return 


F 

C>^3 

95 

K IDr? 


F 

C5A 


to TO tC 


F 

CSS 

1 "0 

Klprit 


F 

C5£ 


6r too: 


F 

CAT 


E IP 


F 

CSF 
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c 

c 


SlBPOl'llNr ELIPSE CK) g 

6 CCIC 

THIS, subroutine FITS * SECmFnT oF AN ELLIPSE TO’TWO ARBITRARILY G CC2C 


C 

c 


c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


ORIENTED STRAIGHT LINES NOT HOPE TRAN 9C DEGREES APART 

CCMHON /PAIN/ XINflO),¥7N(13J ,0ELSMX,PI02;DELS1,IHUB 
CCHHON /FOR3SS/2 0, DEL S , XBK ( 23 ) ,r&K ( 2 0 T , X0M(5 C'l , Y ON 1 5D01 .DTDXOC 5G 
1 »»AlPHA« 5C3 J*CAPPA tSCE J,S0N(50C»,PI DISC 
COHHON /5S/ NBDYl,NP0DY?,TYP3DY,NBDYS 

TRANSLATE INPUT BPEAK POINTS SO THAT POINT NO. 2 PECOHES 
THE ORIGIN 

DFLSIN=DELS1 

KOUMT 

DELSrOELSj 

PI=3.1«(15926S3 

K=K-1 

KS7 ART=K 

X2=X1N(?> 

V2=YIN<2> 

DO l: 1-1,4 
XTN(l»rXTN<I)-X2 
IE YIH»I)=YIMI)-Y2 

ROTATE The TRANSLATED PPEAK POINTS 50 THAT THE SLOPE OF THE 
FIRST STRAIGHT LTNE IS 2eRC 

IF (X1NF2) .NE.XIN I 1 ) ) GO TO 15 
SL0PEr99999 . 

PHI=-PI02 

IF (YINtll .GT.YIM(2»I PHI=PI02 
GO TO 2D 

IS SL0PE = IYINI2>-YTNI 1 ) T / t XIN 1 2) -X IN 1 1 I J 
PhI=ATAMtSLOPE> 

IF fXlNJ 1) .LT.XINf 2)1 PHI-PI*ATaK (SLOPE ) 

?G DO 25 lri,4 
XArxTNd ) 

XIN (I )rXA*Cr)S(PHI l + VINH )*SIN (PHI) 

25 Y]NflI=:-XA4SIN(PHIT+¥IM(I)*C0StPHII 

DFTER“INE THE ELLIPSE 

IF IXIN(4).NE.XINt3)> GP 70 3C 
HrYlNfS) 

A:APS(XIN{3»> 

PKIAB:PI02 
GO TO 35 

20 SlOP2=(yIN(4}-YIN(3)) /(XIN(4)-XINt3)) 

IF (SL0P2.LE.2. 3+YInI 2) /XINI3 ) ) GO TO 135 
C3=X1N(3)*SL0P2/YTN(3) 

PHIA(-r2,0*ATAN(S0RT ( ( C 3-2 . D >/ C3 ) ) 

A=-XIN(3 l/SINIPHIAB ) 

8rYINt3»/(l.D-C0SIPHIAP)) 

35 TRETHX=PH1 AB-PI02 
THTHXD:7HETHX/PI018I 

WRITE <t,1431A,B,XlN( l),YIN(l ),PHI,THTKXD 
1KITIALI2E THE FIRST POINT OH THE ELLIPSE 


G 

b 

G 

CC 

G 

G 

G 

G 

G 

G 

6 

C 

0 

G 

G 

G 

e 

G 

G 

G 

G 

6 

G 

6 

G- 

G 

6 

G 

E 

G 

C 

G 

b 

G 

e 

G 

6 

G 

G 

C 

G 

G 

6 

E 

G 

G 

C 

C 

G 

G 

G 

b 

G 

6 

G 

e 

G 


ECI" 
.ECAC 
CC5C 
CC6C 
CC7C 
ccsn 
CC9C 
Cl CO 
CllC 
C12C 
0130 
014C 
Else 

C16C 

C17D 

ClBD 

C19D 

C2CC 

C21C 

C22C 

5230 

C240 

C25C 

C26C 

C27D 

C2e: 

C2S2 

E3CP 

C31C 

5322 

C33C 

E340 

C3SC 

2365 

C37D 

c3eo 

C39C 

E4CS 

C410 

C420 

C433 

5443 

C45C 

C4tr 

C47C 

54 fC 

C4?-: 

55CC 

C51G 

C52C 

C53C 

•75 4t 

C5SC 

C5E5 
C570 
E5 8-? 
CS9C 
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40 K=KST#RT 

XONCK+1 |=XINI2) 
Y0NIK*1I=YINJ2) 
CAPPA(K*l)=-S/» A*+2 ) 
ALPFAtK-* 1 )=0.0 
< DYDX0(K+n =C.C 
KOUNT-KOUNT+1 
THET=-PJ02 
DSSAVE=DELS 

DS=DELS/< 1 .r-».2*TANH( ABS I 
DYHET=ns/*BSIA> 

thet=thet+othet 


pp A ( I ) ) n 


GEKERATE THE POINTS ON THE ELLIPSE 
45 K:K*1 

SO XOKJK+lJr-A*COSCTHET) 

YON |K«1 J=B* <1.0 + SIN (THET ) 1 

S0NtK + ll=50NIK)+S0(?THX0NTK + I )-XON(K) J 4«2 4 ( Y CN IK ♦ 1 J -YON tK J ) * 42 I 
IF IAPSISONIK+1 )-S0 nIKM.GT. 1 .954DS) GO TO 5S 
ir IAPs<SON(K + l J-S0N(KH.LT..9s*DSJ SO TO 62 
GO TO 65 

55 TPtT=THET-.02*0THET 
GC TO 50 

60 ThCT = 7HET-» .C2#DTMET 
SO TO 50 

65 IF CTHET.EO.0.0 I GO TO 73 
DYCXOIK-H )=e*COTAN I THETI/A 
ALPHAIK-U )=ATAN IDYDXO (K + 1 ) ) 

GO TC 75 

7G 0YClX0«K-H>=99999. 

ALPHA IK-»1)=PI02 

75 CAPPAIK-H)--A«B/|P4e»C0SlTHET )442+A4A4 S IN ( Th ET ) 44 2)**1 . 5 
os=Dris/ Cl .0+.24TANHI APsicAPPA m n J 

IF IAFSIDS-DELS)»GT,.204DEL5J DS = DELS*$I6N‘I . 2C4DELS ,05-0£LS ) 
OSSAV;-DS 

80 BTHET=DS/S0RTfB*B*COS ITHET )**2-»A + A*SIN ITHETI 442 ) 

DIS^DTHET 

THLT=THET+DTHET/2.0 

OTHETrOS/SOPHB4B*COS CTKETl** 24A4 A4SIN I THE T ) 4*2) 

IF CAOSIPTHFT-DTSI »LT ..8 01*01$ ) CO TO E5 
GC TO 8C 

P5 IF nHLT.LE.THET*IX-DTHrT/2.C) GO TO 45 
IF IKCUNT.GT.IOC) GO TO 115 
DEL SS-DELS 

DSTESTr I CXONIK + 1 )-XIN (3) )**2* lYON IK*1 > -YIN I 3 )»**2 )*4.5 

IF lAPSIDS-DSTEST ) .LT . .014DS) GO TO 9C 

IF IDSTEST. GT.DS ) GO TO IIC 
IF inSTEST.lT..Dl*DS) GO TO 95 
IF IDSTEST-. 6*DS> 115,90,100 
9; K=K-*1 

95 XPN CKni=XlNI3) 

¥CKIKn)=YlNI3> 

GO TO 115 

I ;e dels-ifloat ik+i-kstar.t jydfls+pste st )/floatik <?-kstarti 

IF IKOUNT.GE.IC) DEL S= IDEL S* OFLSS 122 .0 
GO TO 40 


G C600 
G C61C 
6 C62C 
G C63C 
G C64C 
C C650 
G C66E 
C C67D 
G C6SC 
g' E690 
G C7CC 
C C71C 
C C72C 
C C730 
G C74t 
E C75C 
G C76C 
G C770 
6 C78D 
G E792 
G E8EC 
C C81C 
G C82C 
C C83C 
G C84C 
G CBSC 
G C86C 
G CB70 

6 cees 

G C89C 
G C9C0 

c C9ir 

E C921 
C C93C 
0 C94C 
6 C95C 
G C96C 
G C970 
6 C98C 
G C99C 
C -ICGO 
C ICID 
C 1C2C 
G l'C3C 
C 1C4C 
G 1C5B 
6 106P 

g"' 1C7C 
G ICBC 

5 1C9C 

E 11 GO 

G 1110 
G 1120 
G 1130 

6 1143 

6 115C 

G 116C 
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c 


c 

c 


1 T5 DFLS=nELS*DSTEST/rLf ATlK + Z-KSTAfJlr ) 

IF tKFttNT.G'-. 13) 1FLSr(nELS+0tLSS )/? .C 
Gf TO 

ii: DELS=.e*nrLS 
GO TO «tC 

i-H DfLsi-Ds*:,e 

IF tOELSI.GT.DELS) DELS1=DELS 
WPITt C6,1<JS)K01IHT 

WRITE (6,1551DELSIN,DEUS,PEL51tDSTEST 

KENDrK-tl 

KSTART=KSTAP7+1 

ROTATE ANC TRANSLATE '*ACK 

DC 13: KROTrRSTART,KEND 
X ArXOHlKTOT 1 

XOmKROTlrXA*COS(PHJ)-YONtKBOT) + SIN fPHI )*X2 
YCNf KROT 1 = XA*SIN<PHI) -tYONlKPOTIACOS «PH1) +Y2 
ALPHA (KROT)rALPHA tKROTl-i-PRI 
IF CALPHAtKROTI.EO.PIOZJ CO TC I2C 
nVDXO (KROTIrTANlALPHA tKROT 1 1 
ec TO lES 

1 '3 DT0X0tKD0T)~99999. 

12S ALPHA {KBOT)=ALPHA(KROT)/PI013 C 
133 CONTINUE 
RTTURN 

IIS WFITE T6,lS'')SLOP2,rlNt3lfYI>((3) 

STOP 


r 

G 

c 

c 

G 

C 

C 

C- 

G 

C 

G 

e 

G 

G 

6 

G 

G 

& 

C 

C 

6 

G 

C 

C 

c 

G 

G 

C 


r, 

G 

1«C FORPAT flH3,10X,qPA =, 1 P F 1 2. 3 , 5 X ,R hb - , IPE I L . 3 , SX , 5 HXO ^ .IPCIC.G 
13,SX,7HY^ = ,iPEl?.3/oX,7HPHI r , IPE 1 3 . 3 , 5X ,9H THETPX = ,lPriC.3G 

2»- . • . G 

IRS FCRPA7 lll.X,I3,2X,13HITERA7I0HS 1 E 

ISO FCKPAT « 1H0»1DX ,R2HC0«R1n ATION or slope, X , Y not C0PPATIPLE/5X,9C' 
IHSLPPcZ : ,F7.3,3X,9HXIHt3) - , F7 .3 , 3X , 9HYIN (3 1 = ,E7.3) G 

KG format CllXtlOHDELS IN - ,F 3. S, 3X , 7HDE L S - , F£ .6 , 3X , 1 IHDELS OUT = C 
1 ,Fe.5,3X ,9HDSTEST = ,F8.51 C 

EAD r 


1173 

ns: 

119 : 
12CC 
J 21 C 
122 C 
IZiC 
1240 
12E3 
12f C 
12 7D 
12 £S 
1293 
13CC 
131C 
132C 
133C 
1343 
ISf 
13£3 
137 : 
13S3 
139C 
1R3C 
141C 
142C 
143C 
IRRT 
14EC 
l"f.3 
1R7C 
IRPC 
1493 

is:r 

1513 

1S2C 

IS33 

15R? 

issr 
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SL'^KOUTIMF SUPERC ( XB RK , YPRK, ENRFCD »DELSl ,IS TtRT 1 H 

DIKFNSION ENREEDI2) H 

OTHEMSIOM XPRKlilr YBRKC6). XBK1U31, YBKlfl’l ' H 

REAL tOBXOA tLOGYOB H 

CCtlHON /SUPF/ IFLP H 

CCHHOK /F0R3SS/10,DrLS,XBt<C2j I.YBK (20) , XON ( 5 CU ,TON (SCDl ,DYDXOI50ER 
H ,ALPHAt50D»,CAPPA(50CJ , SON ( 5 00 » » PI 01 fi C H 

COMKON/SUPN/ X0AI2) ,YCB(2Jtl0{;X0A(2)»L06yPB(21 H 

COMMOR /NHIGH/ NSPHG , NL A SI ,XL A ST I 500 1 , yl AST ( EEC > H 

COHP'ON/SENSE/ X8<2) ,Yfit?) ,A,B tlNFLEC « 

COMKON /SPREPF KPPE'' H 

COHHON/PAC/ PACE.DELSHL H 

CCP.hON/TRYFIT/KOjNT h 

IPI-C H 

P1=3.1R159265 H 

IF flFLD.CO.l) CELSHLrOELSl « 

DELSI»'=DELS1 H 

DCLSZrOELSl N 

KOUNTrC H 

ID IinSTART W 

IF tIFlO.6E.ll PS=DELS2 H 

KCUATrKOUNT+1 H 

I:ISTART M 

X<a = X?RKCR) h 

YRT=Y=PK(«) H 

Cf(((l( FOR SUESEOUENT TTERATIOKS, SKIP LL INITIAL I7ATT0N. H 

IF { (LL. BE . 5. OR.LL.lt AND .KOUNT .NE . 1 J GO TO 5C H 

Lire H. 

Ctt(((t FLAG FOP ENDP7. CURVATURE HATCH IS YBRK(6)-2DC. K 


cocc 

CQIC 

C020 

CC3C 

EdC 

cose 

COGG 

CC7E 

ECPC 

ceso 
cue 
Clio 
C12C 
C13D 
Clio 
CISC 
CJ60 
E170 
CUD 
C19C 
C20D 
r 2 ir 
C22D 
C2 30 
C 2 R 0 
C25C 
C2fcG 
C27C 

C 2 ec 
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IS YBRKf3)= 1C 


IF IY5RK»6I-2C0.) 4?,15*‘)0 
IS CAP--ASS(XBPK(6)> 

Lt=-8 

If «XPRK (6'» .RE .999, > GO 70 5D 
IF IXPRK<-3I.NF,XBRKt2)->.60 TO 2C 

C(ini( IF THE PT. WHERE CURVATURES MUST HATCH HAS INFIH. SLOPE. 
CfUfK OBTAIH CURVATURE FROM PREVIOUS SEGMENT'S EXPONENTS, 

IF tXRfiKtZI.NE.XBPKU )) BO TO 25 
LL=-8 

CAPz-2.^A/X8I n/B/B 
GO TO SC 

20 IF fXPRK.tS J .NE.XBRK (4 ) ) GO TO 25 
LL=-8 

CAF=:-2.*A/X8 (IJ/B/B 
60 TO 5C 

2S iFf XpOK »6} .fo.999. J XEPM6> = CAPPA ( ISTART » 

IF (X=RK C6 J .EO.G. .OP. AESIXgPK «6) 1 .GE.99999 . J GO TC 
CAPr-ABSTXBRK (6) ) 

60 TO 5C 

. 7C UPITE C6.351 

?5 F0PpATC 1HC,3X,99HPE0UEST FOR SPECIFIC CURVATLPC MUST BE MODIFIED 
IR WITHDRAWN. DESIRED CURVATURE CAK»T=C. OP lAFINTY) 

STOP 

C(«Hlt POINT-PtUS-SLOPE FLAG IS YSRKIG)= -ICC, 

90 IF (YPRX(6»-»1C0.1 50,95tS0 
95 Lt= 5 

ClUHf ADDITIONAL FLAG FOR iNf LFCT lON-POl N T-PLUS-SLOPE 
1 F<ybpk( 3J.E0.1C0. J LL=6 
CMUtFOK INITIAL GUESS OF UNKNOWN Y AT INFLECTION POINT, USE ENDPT . AVG 
IFtLL.EO.6) YBRK(3J- Y8RK(2I* (X 3R K « 2 I -X ER K 13 I) / ( X PRK ( 2 t-XBRK 1 9 1)4 
I YERK t9)-YBR«l2l ) 

C(imi CREATE A DUMMY POINT TO SIMULATE THE GIVEN SLOPE THROUGH 
C rXDRce 3 ),YEKK ( 7) ) 

YFRKfO- XBPKfG )*MX6RK f 31+5. »-XBPK (3) > +YBRK(3J 
XERK CG)= XBRK (3 )+5. 

DC EE Jri.t 
XFKl (J+7)=XFKK( J) 

YF.Kl<J+7)rYBRK(J) 

continue 

IF (Xr.Kl I9).NE.X6K1IS>) GO TO 6 5 
IF fVfKl{8J.LT.YBKlt9U GO TO bZ 
S10P=°9999. 

S1NATD=1 .0 
SL0PE=999V9. 

ATCYFiD=9C. 

COSATOrc.C 
60 TO SO 
GO SlOPr-99999. 

SINATDr-1.0 
SL0PE--99999. 

ATCY0n=-9C. 

COSATDrC.C 
Cr TO 8C. 

.65 S10P-»YBk1C9)-VBK1<8» )/IXBKH 9)-XBKI C81) 

SlOPFrAT AM SLOP) 

ATDYOrrSLOPE/PIOlPD 
IF CXPKlt8)-XBKlf9) > 70,75,75 


5C 


55 


H 

K 

H 

H 

H' 

M 

H 

H, 

h 

H 

N 

H 

K 

H 

H 

H 

H 

H 

H 

H 

CH 

H 

H 

H 

H 

H 

DH 

-H 

,K 

(H 

H 

K- 

K 

h 

H 

H 

H 

B 

H 

H 

H 

H 

H 

H 

H 

K 

H 

H 

H 

H 

h 

H 

H 

H 

H 

)' 

H 


C29D 
C3C0 
C3IC 
C320 
C3-30 
C39C 
C35D 
C36C 
C370 
E3£C 
C39D 
D9C0 
E91D 
C92C 
C93S 
C99C 
C9SC 
E9fc0 
C97C 
E980 
. C99c 
C5DC 
CSIO 
C52C 
CS3C 

C59D 
C55C 
■ C560 
C5.7r 
E58C 
E59P 
E6CE 
C61C 
E62C 
C63F 
C69C 
"6 50 
C660 
C67C- 
C6f 0 
C690 
C7CC 
C71C 
C?2C 
C73C 
C79D 
C7S0 
C76C 
C7 70 
C78C 
C790 

C6ce 

ceic 

CP.2C 

C830 

C89F. 

CPEC 
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70 SL0Pr=Pl*SL0PF 
ATDYDD=-*TCYDP 
IP1 = 1 

75 SIN»7n=SINJ SLOPE ) 

COSATtl-COS( SLOPE J 
P- CONTINUE 

INFLEC = APSdNTISINATDl) 

X=K <8»=XBK1 (3 } 
yPK («l=Ve.Kl (8> 

DO 8S J=9,13 
XP=XBK1(J)-XBK1(B) 

YP=YBK1 t J)-YBK1« 8 ) 

XPK 1 J)=X8K1 18 l••XP*COS ATD*YP*S INATO 
YEK f JJ=YfcKl (Bl*-XP + SIKATP*YP*COSftTD 
85 CONTINUE 
C=1 . 

P = 1 . 

XPK(5 J=XPKI81 

YPK(5)=YBK(eJ 
XEK »6)=XBK«9J 
YPK (6 >=YFK<P) 

XPKI9 )rXPKU3 ) 

YPK(9)=T0K< 13) 

0ELS=P£LS1 
DSSAVE=DELS 
XTK=X°K1 19) 

YTP=YPK1(9) 

prYPK tll)-YPK(6) 

T0KE0A=lXtK<12)-XPK (11) )7 ( YpK ( 1 2 ) -Y f K < 1 1 11 
IF {APS(TOPEGA) .LF. .cool ) TOKEGA-O. 
OPEKA=ATAN (TOKECA) 

XC=XPK (6)+B9T0MEGA 
Yr=YPK(ll) 

A:XC-XBK( 1 1 ) 

XI9=X5-XBK (9) 

ETA9=YC-YPK tj ) 

YBiH=ETA9 

X8U »:X2 9-ETA9#T0P£GA 

X8t2)-XC-X0K(13>-TOHEBA*tYCi-YPKtl3) J 
• veCZlryp-YSKIlI) 

BOArfe/A 

IF (LL.GC.5) GO TO 90 
IF (Ll.LF.-3 ) GO TO lOS 
LL='-. 

IF (ENEEEO( 1 ) .GT .0. ) P-FNBFEO(I) 
lF(EN'=EEDt2 ) ,GT . 0. > Q-FNREFIM?) 
ir(P,F0.1.) LL=1 
IFCQ.CO.l.) LL=LL-»2 
IF (LL.FO.D) GO 70 115 
93 XOA (11=XS(1 )/A 
YOB (l) = Y8fl )/B 
LOGXOAd ) = A10G(X0A ( 1) ) 

LOCYOEd )=AL0G(Y08 1 1) ) 

IF (X?pK (61 .EO.C.. AND.LL.E0.3 ) GO TO 95 
IF ILL. HE. 3) GO TO IDD 
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H ceeo 
H C870 
H C882 
H C890 
h C9CC 
H C9i3 
K C920 
H C930 
H C9HD 
H. C95B 
H E96D 
H C9.7C 
H :98(} 

H L99C 
H ICCO 
tt IClt 
P 1C2G 
H IC30 
H ICBC 
H 1050 
H 1C6C 
H 1C70 
H ICSl 
H 109* 

H lies 
H 1110 
M 1120 
H .113C 
H 11B3 
H 1150 
H 116? 

H 1170 
H llfC 

H 1190 
H 12C2 
N 1210 
H 122C 
H 123C 
K 1293 
f; 125? 
H 126C 
H 1270 
H 1280 
H 1290 
H 13CD 

H nio 

h 132C 
H 133C 
H 1393 
K 135E 
H 136C 
H 1370 
H 1360 
H 1390 
H 19CC 
P IBIC 
K 1920 
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X0A<2)=X«C2l/fl 
Y0BI2)=Y8<2)/B 
'L'OGXCAC2)=ALOG(XO« < 2U 
'LaGYOPI2)=flLOGtrOR<2) > 

GO TO xCi> 

95 Ll*i4 

1?3 CALL ro(ilSO<P,Q,LLJ 
GC 70 115 

C(<f((J F0° CUPVATUUr HATCH, NO ITLRATION RtOD, GLT ONf EXPONENT 

1C5 ■lF(XEFK«3).EQ.XPRK(?)lPr2. 

I r IXBPK{ 3> .EQ.XRfiK (4)10-2. 

CHliri 0E7A1N OTHER EXPONENT FROH ENDPOINT CURVATLKE RELATION 
110 IFIP .EO. 2.) C= -2.’H:/CAP/A/A 

IF(C .EO. 2. .AND. P ,KE. 2.) P= -2 .♦ A/ C AP/B 
115 IF (KOUKT.NF.l) GO TO 120 

UPI7E <6.475)P A,X0,Q,E,YD,0HE&A 
120 j:l 
nori 

XON (1 ):X0K» Jl) 

C1CN=1./P 

PT=B^T0HECA 

DX1=DELS*C0SATD 

XP-Xf“-X[*Kl(8) 

VP=YTH-YBK1 18) 

XTlfior-XfiKll8)*XP*C0SATP+YP4SINATE) 

XI=XC-X1 IROT 
V=YC-YBK (61 
X=XI-Y«TOHEEA 
IF lX.LT.D.Cl X=0.5 
DSM=50N( I )-SON(I-I ) 

125 XOATONr(x/A)**P 

yobton=(y/bi**(; 

Ct(t((( AVOID I.LE. D.)P*(.LE. G.) 

IF (P.6C.1.) 60 TO 135 
IF fX.NE.O.) GO TO 13C 
XNH0AN=99999 , 

GC TO IRC 

1 1Z XKHOA'Jri I.-P) /A**P 

60 TO' IRO 

135 XNKOANrX^PI P-1, |/A**P 
140 IF (0.6E.1.) 60 TO 25C 
IF tY.NE.C-. I 60 TO 145 
VNHPeN=9999 . 

CC TO 155 

145 YPP.08N={] ./Y)**Cl.-0) /B**o 

GC TO 155 

15E VNMObN=V** ( C— 1. 1 /P**o 
155 For T=XOArON+VOBTON-l . 

IF (APSIFOFYJ.LE.l .CE-51 GO To 160 
FPOr YFO’C'YNHOBN-TOMEGA*P*XNHOAN 
YNEW=Y-F0FYyrPOFY 
GO TO 165 
16C YACW=Y 

165 IF (ABs(Y-YNEw>/YN£V-.iE- 4) 175,175,17Q 
17G yrYNEW 

X=X3-Y*T0KEPA 
. GC 70 125 
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H 
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P 
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H 

H 

H 

H 

,H 

H 


143f 
1442 
145C 
14 60 
147E 
14 EC 

14 95 
I5C0 
1510 
1520 
1530 
154C 

15 55 
156C 
1570 
15GC 
159C 
16GC 
161C 
162D 
163C. 
164C 
165E 
1660 
1672 
166? 
1690 
17CC 
171C 
172C 
1730 
1740 
1750 
176G 
1772 
1780 
179D 
iPor 
leir 
I82C 
1S3C 
lfi4E 
1P5C 
1862 
1872 
left 
189C 
l?fO 
191P 
I92n 
193D 
1945 
1550 
196C 
197C 
1982- 
199C 
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175 YTYhew 

X=XI-Y>>TOMEGA 
180 ETA = y 

ORI 

IF IX.L7.C.?! X=Q.O OF 

CMCCM AVOID (.LE. C.J*»(,l.E. C.J 
IF tPiGE.l.) GO TO 190 

IF IX.hE.C.) GO TO ISF 

XCAAH1= 99999. 

GO TO 195 

1 ?5 XOANHlr|A/X )>»*( l.-P ) 

C-0 TO 19F 

190 xr-Ar.ri-ix/fl i**t P-1 . ) 

195 IF IO.GC.1.1 GO TO 2CS 

IF IY.NE.C.1 GO TO 2CC 

YCfNPl- 99999. 

BC TG 210 

2CC Y0P«P1= CP/¥1**U .-0) 

GC TO 210 

205 Y0GNM1=< Y/e )**( O-I . > 

21J F 1= tX0AlYPl/Al*P 
F2=TY0PNMl/f 1*0 
F’=TOP£GA>FF 1 
IF (X.EO.L.Cl GO TO 225 
IF IP.GE.2.) GO TO 215 
F 10X=P*<1./X1**(2,-P J/A**P 
GC TO 22C 

215 F 1CX=P*X** tP-2. )/A**P 
220 GO TO 230 

225 IFIP.FO.2.1 Fl0Xr2.D/ |A*fl) 

IF(P.r.T.2.) F10X=3.G 
23C if (Y.EQ.C.n GO TO 290 
IF I0.6F.2.) GO TO 235 
F 2C¥ = C*« l./Yl** (2.-0) /P**P 
GO TO 295 

2^5 F rOY=0*Y*+( 0-2. )/P**0 
GO TO 2ttE 

295 IF(0.ro,2.) F20Y-?./tP*n 
IF(0.rT.2.) F20Y=r. 

2«5 nEN=F7-F3 

IF (OtK.NC.r.O) GO TO 25C 
DETCXI=99999. 

60 TO 255 

2F-3 nETPXI=-Fl/PEM 
255 OYDXOdPNl^OETDXl 

ClHEPT=l.-DfTOXI*TOM£EA 

IF IIPN.FQ.ISTART.AHD.LL.LF.-6) GO TO 26J 
C(((«(( ELIHIKSATF cases of UN'DFFINED CURVATURE 
IF TX.EO.D. .AND.P.LT.2. J GO TO 265 
IF IV.EQ.G. .AND .q.LT.?. 1 GO TO 265 
61=tP-l.l*F10X*ClMEPl 
SANCl-CEh*Cl 

5AKP2=Fl*t (0 -1. )«F?0Y«DETDX1 -G1*70K£GA ) 
ir(APS<D£TDXI).G7.1 ,E 11) DETDXI=1.C 11 
BKT = U.*DET0XI*#2I**1 .5 
CAPPA(IPN) r(SAND2-SANri )/DCM**2/EKT 


ORIGINAL PAGE IS 
OF POOR QUALITY! 


H 2CCC 
P 2C10 
H 2020 
H 2C30 
K 201)0 
H 2C5D 
H 2£fcD 
H 2C70 
H. 2EE0- 
H 2C9C! 
H 21CC 
H 2110 
H 2120 
H 213G 
H 2111C 
H 2157 
H 2162 
H 217C 
h 21E0 
h 219D 
X 22CE 
W 2210 
G 222C 
h 22 3D 
H 2240 
H 225C 
I! 226C 
H • 227D 
H . 22P2 
H 2290 
H 23CC 
H 2310 
H 2322 
H 233E 
H 23i=C 
h 2350 
H 23fO 
H 2370 
K 23FC 
H 23 90 

H 24CC 
n 2410 
H 242C 
H 243C 
H 244C 
H 245C 
H 246C 
h 2 4 7C 
Fi 24F-. 
H 2490 
H 25LC 
H 2510 
h 252C 
P 253C 
H 2540 
F. 255C 
P 25tC 
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If <P.F0.?. * AND.X.EO.O. >CAPP«C IPN) i-2.*P/Q/A/ A 
6C *10^2 7 'I.T. l.E-M KAPPA (IPN) =-2 .«A/p /p/g 

26C IF(P.E0.2.)CAPPA (IPN)=-2,+B/a/A/A 

IF(C,E0.2.)CAPPA(IPN)r-2.*A/p/B/p 
150 TO ?7C 

265 CaPPA(IPKI=9999V. 

2T2 ALPHA (IPN> = ATAN(EIYDXO(lPN)l/?IOlflr 

*0K(1PN)-XD-XI 

YCN(IPH)ryr-ETA 

pvi-dfls*sinatd 

If (IfLD.GE.lJ GO TO 275 
DS=DtLS/(I.r*,20*TANH (APSICAPPACTJ) )) 

GO To 2E5 

275 ir (IFLD.eT.l.AND, riPN-ISTART >.GT.3> 60 TO 26" 
Ds=DS-PACEyds 
GO TO 29C 


2RC DS=PS+1 .5*PACtr*nS 

IF IOS.ET.OELSHL) DSzDEISHL 
GO TO 292- 

‘A-StOS-DELS ».GT . . 2C*DELS) DS-DE LS +ST6N t . a'^DELS ,D •i-DELi 1 
2P0 IF tDS.LT..C290FLS2) DSrK2*orLS2 GLL5.0S DELS) 

IF flFLO. GT.D. AND .( I-ISTAPT ). 01.200 ) 6o TO 1C 
IF (NSpHG.EO.D) 60 TO 295 
rtXKAPS<XLAST(NLAST)-XLAST(Nl.AST-I)! 

0X11=0X1 


DY1=APS(YIAST(NLAST)-YlAST (NLAST-1 ) ) 
NLAS7=NLAST-1 

295 IF <ABS(DETDXIl-l.) 32C, 32C,3C-0 
3CS 0Y1=DS/S0RT<1. + 1 ./e)ETDXI**2) 

IF (NSPH6.NE.D1 DYl-rDXl 
305 YTHrypNd ) + DYl 

IF (YTK-yEK (11 ) ) 310,390,390 
31C ETA=V“-YTH 


Y=ETA 


STPMnn section between points ii and 12 hust havf slope above 


X KAY NOT BF TESTED AGAINST XPK(ll) 


315 

3?E 

325 


X-A9( 1,-iY/p j**o)**C10N 
XI=X+Y*TOPECA 
XTK=X:-XI 
OXlrxTM-XON(l) 

DEL T AS=SOPT (DYl '’X 1**2 ) 

IF (DELTAS. GT. 1 .02*DS. AND. IPN ,NE 

GO TO 39C 


1. ANO.NSPHG .FO 


DYarD5*0yi/DELTAS 
SO TO 3CS 

0X1 =DS/SORT (1.*DETDX1**2) 

IF (nsphg.nf.c) dxi=dyi 
IF (NSPHG.NE.O. AND.TPI.FO. 1 ) Dxi=DXli 
X TK=XON( 1 1 + SIGN (DXl tOETDXI ) ' 

If (DFTDXI .EO.O. ) XTH=XON( I )-DXl 

XI=XD-XTP 

r^YC-YONII) 


) 


GO TO 315 


H 257C 
H 2566 
H 25 9D 
H 26CP 
H 261C 
H 262C 
H 2C3D 
H' 2611C 
H 2656 
H 2E6r 
H 267C 
H 26 86 
H 2696 
H 2700 
H 2716 
H 27?: 
H 2 73C 

H 2740 
H 275F 
H 2766 
H 2776 
K 2782 
h 2792 
H 2ACC 
H 2810 
K 2820 
H 2630 
K 2E4C 
H 28SC 
H 286G 
H 2872 
B 268C 
H 2896 
H 2960 
H 2916 
H 2920 
1 H 293C 
H 294 0 
H 29SC 
H 296C 
P 2970 
H 2980 
H 299C 
H 36 CG 
H 3C1Q 
H 30ZD 
H 3632 
"H 3C4C 
H 3 650 
H 3666 
H 3676 
H 3CfiO 
H 3690 
H 3162 
K 311C 
H 312G 
H 3136 
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333 X=XI-Y=CT0ME6A 


C( t (I ( 

IF IP.GE. 1.1 GO TO 3 <tD 

IF fX.KE.O.) GO TO 335 - 

XNH 0 AN= 99999 . 

GO TO 345 

335 XNHOANrli./Xl**<l.-P)/A**P 
GO TO 345 

34 D X^POAfarx^ftCP-l . J/A 9 «P 
345 IF << 3 . 6 E. 1 .F GO 70 355 

IF CY.hE.D.) GO TO 350 

YNHCE 4 = 9999 . 

GO TO 360 

3 50 YKKOBN'=« l./YI** tl.-OJ /B**0 
GO 70 360 

355 YNHO&M=V*iM 0 - 1 . )/P **0 
360 FOFY=XOATON*YOeTON-l, 

IF (ArS(F 0 FY).LF.l.QE- 5 J GO TO 365 
FPOFY= 0 *YN'MOBW-TOMEGA*P*XKMOAN 
YKEV=Y-FOfY/FPOFY 
00 TO 370 
3(5 YNCW=Y 

37 C TF ( ABSCY-YNEU) /YNEU-. 1 E- 4 ) 380 , 380,375 
375 Y=¥NEW 

GO TO 33 C 
382 Y=YKEW 

X=X3-Y*T0KEGA 
YTH^YC-Y 
XI=X*Y*TOHEGA 
C DY1=YTK-Y0N »I-1 1 

PYl =YTH-YCN(I) 

DELT AS=SORT «DY 1 **?+ 0 X 1 ** 2 J 

IF (DELTAS. E 7 '. 1 . 02 *DS. AMD. IPkl .NE.l. AND. 4 SPWG ,EQ. 2 ) GO T'O 385 
60 TO 390 

385 PX1=E‘5*DX1/PELTAS 
BO TO 325 

390 S0NtII:SONlI-l)+D5M 
DSKrDS 

IF INSPHG.MF.C) DS=DX 1 

if' <A'=S(YT('-YBKlll J >.LT..CG 1 *DSJ GO TO 43 C 

1=1 + 1 

IF (YTH-YBK«lll> 180 , 395,395 
395 IHIzl -1 
GO 10 405 
400 IHin 
1=1 + 1 

4 C 5 XTH=XBKU 1 > 

IIHI=IHI 

410 IF IIFLD.LE.O.OP.TI-ISTART>.LT, 2 CD 1 go to 415 

IFdFLO.EOrl) PAFE=PACE -. 2 S*fACC 

1 F{ JFLD.E 0 . 2 ) PACE=PACE+.Z 5 *PACE 

I=IL 0-1 
GP TO 10 

415 DO 455 J=IL0,IHI 


IF (X.LT.0.01 X=0.0 
X0ATO4=(X/Al**P 
VOeTON=TY/B 1**0 
( AVOID I.LE. D.)**(.LE. 0.) 


0RI&INA3J PAGE IS 
OF POOP QUAIITY 


H 2140 
H 315C 
H 316C 
H 317C 
H 318C 
H 3190 
H 32EO 
H 3210 
H, 322C 
H 3230 
H 324E 
H 325C 
H 32 60 
H 3270 
H 3261 
M 329C 
N 33C-C 
H 331C 
H 23ZC 
H 3331 
H 334C 
H 3350 
N 3362 
H 3370 
K 338" 
H 3390 
h 34C2 
H. 34 IC- 
H 34 2C 
H 3430 
H 3442 
H 345C 
H 3460 
H 3 4-7E 
H 3462 
H 3492 
H 35CG 
H 351C 
H 3S2C 
H 353E 
H 354C 
K 355C 
P 3560 
H 357P 
H 3S8P 
H 3590 
H 36CO 
H 3610 
H 362C 
H 36 30 
H 3640 
H 365E 
N 3662 
H 3670 
K 36FC 
H 3692 
K 37CD 
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XF=XON(JJ-XBKlie> 

YP=Y0mai-VBKll8J 

X CMai=XBKl(eJ*XP*COSATn-YP*SINflT[) 

YON< J):YBK1 l8)*XP*SINATD*YP*C0SftTD 
DEL22=DFIS2 

IF (J-Nf.-IHIt GO- TO -BBS 

DSTEST=( IXONIIHI J-X^IT J**2-^lT0NfiHlJ -Y'(T1**3) <*,5 
IF tKOUNT.GT.15C) GO TO 445 
rr IAPStDS-DSTEST).LT..l*DS> GO TO 42C 
IF fDSTEST.lT..Dl*DS) 60 TO 425 
IF IIH1.EO.ILO> GO TO 440 

IF l«PSlDELS2-DSTFsf) .Lt..C-01*DS> 60 TO 435 
IF IDSTEST.L7..S+DS ) GO TO 435 
IF IDSTEST.G7..5+DS ) GO TO 436 
CIt.tttt VIA BUTTON 1/5/74 

42v IIHI=1IHI*1 
I^I-U 


IONE=IJHl-a 

SON (IIHI l-SONtlONE )*DSTEST 
425 ITH1 = TIHI-»i- 
. inNE=TIHI'l 

XOMlONE >=X4T 
TCNtlONE )rV4T 
r.C TO 44 5 

4-'C IF tIFLD.GT.l) 60 TO 435 

□ FLS2=t FLOAT tIHI-IL0)#DELS2-fDSTEST) /FLOAT I IHI + l-ILO) 

If fKOUNT.6E.10) DELS2=tDELSE*D£L22)/2,0 

I=IL0-1 


GO TO 1C 


4 35 CEiS2=DELS2*DST£ST/FLOAT{IHI-ILO) 

IF IKOUNT.GE.IO) DELS2-{0ELS2+DEL22)/2.G 
IFUTFLD.GT.l.AND. IDS/DEL22).GT.2.) 
lpACCrrACE*(l,-»OSTEST/DEL22/»FLOAT tIHI-ILO)*( l. + l. 5*P A CC )*>FLO 
2 I- 1 L 0 - 1 )-Hl,i --1 . 5*P ACE )**FLOATtIHr-IL0>-l. )/!.&/> ACE)) 
IFIlFLO.GT.l. AND. tDS/DEL22) .6T.2 . )DELS2-DEL23 
1=1 L 0-1 

GO TO 1C • 


4'40 DELS 2 =. 8 *DELS 2 
i=iLa-i 
GO TO 10 

445 AtPHA(J)=ALPHA t J)-ATOYDC 

IF ( APS fABS (ALPHA C J) ) -9G. ) «LE . 1 , Cr-4 1 GO TO 45C 
DyDXO(J)=TAVtALPHA I JJ ♦PloieO) 

60 TO 455 

45C DYBX0tJ)=SlGN(999.,ALPHAtJI) 


H 

H 

H. 

H 
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•H 
H 
H , 
H ‘ 
M 
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H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
K 
K 
H 

H ' 
K 

ATtI HH 
H 
H 
P 
H 
H 
H 
H 
H 
H 
- W 
'H 
H 


455 CONTINUE H 

IHI=inNE H 

IF fKOuNT.'CT.j'sO) WRITE 1 6 »48 0 ) (X PRK ( IU8 ) ,YP RK t lU 8) , lU8 = r.5) ’ H 

DELSl^DS „ 

IF IIFLD.ro. 0) 0ELS1 = 1.1*DS H 

IF (DELSl.GT.’DELS2,AND.TFLD.LE.l)ncLSl = DELS2 H 

DC 4 65 J=IL‘0,IHI H 

. IF (d.EO.l) 60 TO 46C H 

SON ( J )=SOM( J-1)*S0RT( fXON(J)-XONt J-1 >)**2-*(VCN(J) -YON fj-l))**2) H 
GO TO 465 H 

46C SOM(J)=O.C . H 

465 CONTINUE H 


3 7 lb 

372C 

3730 

374C 

3750 

-376 C 

3770 

378t 

37s:; 

38GC 

381G 

382C 

3830 

384C 

3860 

3S6C 

38 70 

38PC 

3890 

39CC 

391C 

3920 

393C 

394C 

39SC 

296C 

3970 

398C 

3993 

4’CEO 

4C1C 

4C2C 

4C30 

4'C4 0 

4C5C- 

4C60 

4C7D 

4'CEG 

4C9C 

41CD 

4 lie 

412r 

413D 

4140 

4l5C 

4160 

4170 

4iec 

4190 

42CC 

421C 

4220' 

4230 

4240 

42 5D 

4265 

4270 
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c 

c 


IIRITE <6,4(8S)K0UNT 

URITr l6,it9C»DELSIN ,DrLS2,DELSl»0STES7 
IF <IFLD.GT.O) WRITE C6 ***70 Jf» ACE 
I F0Pr'AT«lH*,87Xi ‘FINAL PACE= 

IE=T 

X8J1»=P 

X£<2»=0 

XDIF=XBRK(«l )-XBRKI 5 ) 

ir«ABStxniF).lT.i.E-15)XDIF=ST6Nll.E-15,XDIF ) 

DYDXO llD-1 ) = IYBftK (9 J-V&RK < 5 ) 1 /XDIF 

IF (ABS<BYDXOIIO-I I).6T»99999. )DYDXO(IC-I> rSI GN C 99 999 .* DYDXO I 
ALPHA (ID-1 )-ATANt DYDXO I lO-l) ) /PIO 180 

IFICAPPA 110-11 .EO.Q ..AMD.P.EO .2.. AND .0.EQ.2. ICAPP A(IC-l)--2. 
1/P ' . 

RETURN 


•175 FCRPAH 1X/9X,4HP = t Fib . 8 » y X, J(HA = ,E 1 b . 8 t?X ,5HXE = ,E16 . 8 /4X HO H 
ir .‘Elb.S.RX.yHB = ,E16.6,7X,5HYD = ,E 16 .8 , 3X .8H0HF6A = ,E16. 8/1X1 H 
•is: FORHAT (IHO.bCHTHIS SET OF DATA EXCEEDED 150ITERATI0N5 CALCULATJONH 

IS STOPPCD/5X,yKXBRK,SX,*(HYeRK/5X,lPlQri0.3} N 

yps FORPAT (lX,5X,I3t2Xtl3HITERATJ0NS 1 

H93 FORMAT (bX.lDHOELS IN = »F8 .5 « 3X , 7HDEL S = ,F 8.5 i 3 Xt 1 1 HDELS OUT = iH 
1FF.5,3X,9HDSTEST = ,F8.51 ^ 

EF'D “ 


<i2P. 

•1291 

43C( 

4311 

•I32C 

433C 

43«U 

435C 

436C 

437C 

438E 

435E 

4<>CC 

•44ir 

442C 

44 3F 

444 r 

445C 

44fcC 

•»4 7C 

448 r 

449T 

45CC 

•1510 

452E 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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SUBROUTINE F0NISa(P,0 ,LL1 

C f < I ( t i ( 1 1 ( << H t ( U < ( H ( t ( i ( ( ( t ( < t ( < ( t ( ( I t < ( t ( ( ( C ( ( I ( ( ( ( '( I { ( ( ( < ( { ( t f { ( ( 


FOR THE BI-SUPERELLIPSE", F*P,,0> = C*/A)**P (r/£!)**c - 1 = t. 


IF LL = 

1 

2 
3 
R 

5 

6 


AND 6IVEN 

o,xi,ri - 

P,X1 ,Y1 
XI tY1,X2,Y? 

XI ,Y3 

X1,Y1,SL0PF AT(X1,Y1I 
CXI* 1-lNFLECTION PT, 
PLUS SLOPE AT Cxi, » 


FIND 

P 

0 

P ANE 0 
P = C r jj - 
P AND Q 
P.Q.AND Yi 


REAL LOGXOA.LOGYOe 
dimension 0XC2J,0Y(2) 

COKHON/TPYFI7/KOUNT 

Common /main/ xincid>,ytncio> ,pelshx,pio2,del^,3hu8 

CPKMOF/SIJPN/ XOA (2J,YOB(2),LOeXOA C2 J ,LO G Y OB I 2 » 
CCHH0N/5ENSE/ XC2) ,V <2 ) , A ,B, INFLEC 
DATA 70L/.1F-6/ 

YI = Y (11 
XIrXClJ 
OXCljr XINC3) 

OX(2)=XIN(6 ) 

OYI 1 YINC3J 


0Y(2)=Y1N(6 J 
DO 2C 1=1,2 

IF (K0UKT.G7.il GO TO 2C 
IF Cl.E0.2.ANn.LL.NE.31 60 TO ?C 
0A= XOAII) 

0B= YOeUJ 

IF C (OE*OA ) .LE. J.CJ SO TO 13 
IF ’(OP.CE.liO.OR.OA.BE.l.Cl 60 TO iS 
GO TO 2D' 

ID WRITE (6,93»OX(I),OVtI) 

GO TO ZC 

15 WRITE (6,65)0X(I>,0Y(I) 

STOP 

2D CONTINUE 

IF (LL.NL.6> GO TO 25 

P = 1.5 

0:.S 

25 IF 1Ll.NE.61 60 TO 3Z 
YOBIllr Y111/P 
LODYOPt 1 ) = AL06( YOP I II I 
XOA»l)=Xtll/A 
• LOGXOA{l)=ALOG(XOAIin 
32 XCATP1= x'OA(l)*«P 
VOBTOJr YOBfll**0 
DFDPAir XOATP14LOEXOA f 1) 

Fl= XOATPl ♦ VOETOl -1. 

OFDOAI = VOBTOl'lLOG YOB n ) 

GO TO (55,60,35 ,66t7C ,701 ,LL 
’5 XOATP? = X0A<2)4«P 
Y0ETQ2 = Y0PI2)**0 
0FD0A2 = YOPT02 4 LO6Y0BI21 
F2 = X0ATP2 ♦ Y0BT02 - 1. 

DFDPA2 = X0ATP24L0GX0AI2I 


I 

II 

I 

1 

I 

I 

1 

I 

1 

I 

1 

1 

1 

I 

1 

1 

I 

I 

1 

I 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I’ 

I 

I 

I 

I 

1 

I 

I 

I 

I 

I 

1 

1 

1 

I 

I 

1 

I 

I 

I 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 


<12 ON = CF14DFDPA2/IDFD0A24DFDPA 1,)-F2/DFD0A2)/ C I.- - EFOP A'2*DFb(jAI/ (DFI 
10PA14DFDOA21) « 0 2 

Ph =( (C-ONl 4DFD0A1 -Fll/DFDPAI * P I 

■ R5 TFSTP=ABS(PN-P1/P -TOL 2 

TESTOrABS(0N-0)/0 -TOL I 

0=0 N ‘ t 


tecr 
COID 
CG2G 
CC32 
CC<tD 
C05C 
CC60 
C07G 
c CSC 
cc^c 

LIED 

cub 

C12C 

C13C 

DIMQ 

C-1'5C 

Cl60 

CITC 

C18D 

CISC 

C2C0 

C2ID 

C22D 

C23C 

22R0 

C25Q 

C262 

D27C 

C2er. 

22SB 

C3C0 

£310 

C32D 

C330 

£340 

C350 

C362 

C37C 

C3e6 

C396 

c«cb 

C41C 
C<l2D 
C43C 
C<»<(C 
C<C5C 
C<(66 
C<C 7 2 
C4F.C 
C49C 
CSDO 
E51C 
CS2C 
2532 
2540 
C55C 
E56: 
23 76 
C580 
£592 
C6CS 
C61C 
C622. 

csk 

E6<tC 



77 


50 

55 


6 ? 


55 


7C 


GO TO 25 
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P=PN 

IF «TfSTP.GT.D..OR.TESTC.GT.D») 

RETURN 

Pf.= -Fl/DFOPAI ♦ P 
TESTP =AOS <PN-P) /P -TDl 
P=PN 

IF ITESTP) 50,25,25 
0Fi= -ri/DFOOfll ♦o 
TEST0=ABS«Qtl-0)/o -TOL 
0=0N 

IF <TESTQ) 5G,25,?5 
DFD0A1= yOBT01*LOGYOE Cl ) 

PK=-F1/(DFDPA1^DFP0AU 4p 
TESTP- ABS{PN-P»/P -TOL 
P=PN 
Q=P 

JF ITESTP) 50,25,25 
DYDX= (YC2)-YI )/(X(2|-Xl 1 

F2=D YPX4 P*XCATP1*Y 1 1 ) /O/ YOB TO 1 /X ( I ) 

EOCALO= - P4-XOflTPl*ytl)/0/Y03T01/X(n 
DFD0A2= - « ALOG (B J-l,/O-AL0ei YCl ) I )+EOCA LD 
CIF0PA2= - u./p -AL05CA)+ AlOG C X C 1 ) )) *E0 CALD 

IF ILL.EQ.6) CO TO 75 
GO TO MD 

E0CALD= - P*X0ATP1«YU )/0/YOBT01/X( 1) 

C=F2 

DGDP- DFDPA2 
DFDOr 0FD0A2 

H = E0CALD*( (P-1 , )/XC 1 )♦( ( l.-0)/Y 1 1 ) )*EOCALD ) 

DFDP = EOCALO*( (P-I.)/X(l)*l (l,-0)/Vtl) )*E0 CALD I *(1 . /P-ALOC I A l+ALl 
2 CXC 1* )) J ‘*^'*‘'*^°**^ ,/X (1) +(( l.-0»/Y(l) )» EOC ALD+C l./P-ALOGlA) ♦ALOGI 

DHDO =, E0CALD*I(P-1.)/XI3)4{ (l.-0)/Ytl))4EO CALD ) * I -1 ./0 + ALOG f P > -A1 
1 LOG (YU 1 ) l-t-COCALO*! -E OCALO/YC 11*( (1,-0) /Yd) j^EOC ALO+ (-l./O^ALOGtfil 
2 )-ALOC(Y(l) )J) . , 

DFOYr 0/Y(l )*Y0BT01 " j 

IF{INFLCC.E0.1)DFBY-P/xtl )*X0ATP1 T 

DCDY= E0CALP4(0-1.»/Y (1) •, 

IF(IKFLEC.EO.I) I 

1 0GDY=E0CALD*(1.-P) /X(1) t 

ECCAL2=2.*E0CALD j 

DHDY= EOCALD=M( ( P-1 , ) /X ( 1 ) * (( 1 . -Q ) /Y ( 1 ) EOC AL2 ) * (I . -0 )/¥ (1 ) 4E0CAL1 
lD*(0-l.)/Y(l)/y(l)) j 

IF(IF'FLEC.EQ.l) J 

j CiHDY = EOCALD/X( 1 )♦( P-1 ,)♦( (P-2. )/X (1)42 .*E 0 C ALD* ( 1 . -0 J/Y I 

URONSKrOFOPAl*! 0G00«0HD Y-OGDY *DHD 0 ) -OF D Q Al*'( '"0DP4 PHDY-DGDY4DH0P )« J 
1DFDY«(DGDP’*DHD(}-DGDQ4DHDP) j 

0A==0+(FI*(DGI)P*0Hr)Y-0GDY*DHDP )-G4(DFDPA l*PHtt Y-DFD Y+OHDP ) 4H* cOFOPA 1 1 
l*GGDY-DrOY*DGDP) )/UROnSK 1 

PNrp+(-Fl*(OGDQ + DHDY-DBF)Y*DHD 0|4G»(DFDOA1+DHCY-DFDY*DHDO)-H*(DFDO AI 
1 14DCDY-DFDY+D6DCM/UR0NSK I 

Y LrY ( 1)4 IDHDP*( P-PN )4DHDQ* < 0- ON )-H) /DHDY 1 

rniNFLEc.Eo.i) J 

1 7N=X (l)4tDKDP*(P-PR}4DHDO*(0-QN)-F)/DHOY I 

TrST¥rAES(YN-¥(l ))/YI 1 ) - 1.E-D5 T 

TF(IHFLEC.EO.I) , 


CfcSl 
C6 6' 
C&7( 
C68C 
C65C 
C 7 cr 
C71C 
E72C 
C73C 
C7RC 
C75E 
C760 
C77D 
C 7 es 
C790 
C8 CO 
C81C 
CE2D 
C83C 
CSRC 
E85C 
C86G 
•C8 70 
C86E 
C8 9C 
C9CG 
E91D 
C922 
G93D 
CR'tO 
C95C 
C960 
C97C 
C9SG 
C99C 
ICCO 
1C15 
1C2C 
IC3C 
ICAO 
1E5C 
1C60 
1C7C 
1C80 
JC52 
IICO 

me 

112C 

113C 

IIRO 

115C 

1160 

117C 

1180 

1195 

IZCG 

121 C 



i TCSTtrAPSCYN-XIl) )/Xtl> - I .£-05 t 

TFIJNFi.Ec.Nr,l J rU)=YN . . ? 

IFCIKFLEC*£0.1» ■ ^ 

lX<l>ry*i I 

IF (TESTY) <)5»«(5»fi0 ^ 

SO 0=QN I 

P=PN I 

60 TO 25 • I 

85^F0PHAmH0,i,2H THIS POINT IS OUTSIDE THE KAGIC TR lANGLE, .2E15 . A/ I 

1 This condition is not valid for any case, revise i 

”*SIC TR1ANGLeI,2E1S.^/5zJ 
CONDITION Is VALIO ONLY FOP THE B1SUPEPELLTPSE/72H WITH INFI 
1L..CTICNCP OR 0 LESS THAM 1 • SUCH A CURVE HAS BEEK eENERATrn i t 

I 


122C 
J2IC 
12N0 
1250 
12fcC 
1270 
1280 
1290 
13 CO 

1310 

1320 

133G 

12^0 

1350 

-136C 

isVc 
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SUBROUTI%T CUBIC tK ) 



FIT A CUBIC BETWEEN Z $TRAie«T LINES “ RESTRICTION" — THE STRAIGHJ 
LINES CANNOT BE VERTICAL J 

J 

DIHENSION AA(q>4>« BB(<|T J 

COKHON /MAIN/ XIU ( ID > t TIN< 10) i DEL SH X * PI 0 2 «OE LSI t IHUB i) 

COHHON /FOR 3SS/T0, DELS, XBF t ZD > ,TBK { 2D» ,XON tS C0> , V 0N< SOD* ,OTD*0 iSDGu 
1I,AIPHAT5CO»,CAPPA<500*tSON<500),PI0180 J 

CCHHON /SS/ NBDYl ,NB00YZ,TTPBDY,NBDYS J 

0ELSIN=DELS1 . J 

DELS=DELS1 . . « ^ 


Y3=YINf3) J 

SL0P2=<YTN<R)-Y3)/{XINI<I|-X3I J 

J 

SETUP 4X4 HATBJX OF COEFFlClfNTS J 

J 

AAU,1» = 1.0 j 

AA{1,2*=X2 ' J 

AAll,3l = X24‘X2 J 

AAC1,4*-X2#*3 J 

AAt2,II=C.D J 

A*{2,2l-I.O J 

AAC2,3I=2.D#X2 J 

AAI2,4I=3.0*X2'**2 il 

AAC3, 11=1.0 J 

AAt3,2J=X3 J 

AA(3,2I=X3**2 J 

AAt3,4»=X3**3 J 

AAt4,I)=C.O J 

AAt4,2l=l.C J 

AAJ4,3l = Z.O«3 J 

AAC4,4)=2.G«X3*«2 j 

DC IL 11=1,4 J 

10 CONTINUE • . J 

. * ,1 

SETUP VECTOR OF ORIGINAL CONSTANTS — BB J 

J 

EE Cl) =¥2 j 

BEI2)=CV2-YINClll/(X2-XINf 1)» J 

BE<3)=V3 J 

BBC4 I=IY1NC4)-Y3) / C XI N C 4 )-X 31 J 

NSIK=4 J 

KSIH=r J 

call Slho C AA ,BB,NS1H ,'KSIH) J 

D=BB(1) J 

C=BBC2I J 

A=BeC4l J 

c=eat 2 i J 

B=eBt3l J 

15 ktkstart d 

K0UMT=K0UNT*1 J 


KOUNT=D 

N=K-1 

KSTART=K 

X2=XINf2 ) 

X3=X1NI3) 

V2=YINC2) 






0 ^' ? 00 ^' 


cccc 

CCIG 

CC2C 

CD3n 

CD 40 

tcsc- 

CC6C 

CETC 

COSO 

coac 

CICD 
Clio 
C 120 
USD 
C140 
C15D 
C160 
C17C 
cisr 
C19D 
CZCD 
C210 
C2 20 
C-2 3C 
C24C 
C2 50 

C26n 

C27c 

c'zec 

C290 

C3C0 

C3ir 

C320 

C33C 

C 34 C 

C35C 

C36C 

C37C 

C3fC 
C39? 
C4CD 
C41C 
C42C 
C43C 
C440 
C45C 
C460 
C4 7C 
C4eC 
C49C 
C5.C0 
C51C 
CS23 
C530 

C540 

C55C 
C56C 
C5 7D 


XONTK^l )=XIN(2) 


J C5P0 
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YOK (K+1 J=yiN(2> 

aY0X0<K-»l) = 3.0*A*X0NCK»ll#*2+2.P*B'»X0N(K*lI*C 
, CAPPA(Ktll = r£..0*A*X0NIK+l)42,C:*B)/J ll.o*DYDXC«K*l J**2J**i.SJ 
ALPHA <K«1 ) = A7AN{OYDXO (K + 1 J I 
PS=PELS/(1...0-».2*TANHIA8SCCAPP AIK41J > l J 
20 K=K-*3 

DX«Pl=DS/ISORTt J .0-»DYDX0(K))J 
IP IXIMI3 J.lt. XIMI 2»> DXKPIS-DXKPI 
■ XON IK*llrX0NIKJ 4DXKP1 

YONtKH >=A*X0MtK4-l )**3+B*X0NI K* 1 J **2 + C*X0N CK < 1 J+O 
OTDXO(K+1I = 3.D» A*X0NCK + l)**24 2.D4BYX0NrK*l>4 C 
C APPA CK4l)r(&,Q4A4X0h(K4lJ42.0AB>/( (I.C + DyDXCJK*! I** 2 J**1 ,5 ) 
DS=DELS/U.04.2*TANHtABS<CAPPA (K*!)) J ) 

ALPHAfK4 1J = ATANCDYDX'0IK*1J I 

SCNCK*n=SOKfK)+SORTt (XONlK + 1 ) -XON C K M 4*2* f Y CN IK« 11 -YON' IK )) «*2 1 
IF ISL0P2.GT.1.0J GO TO 25 

IF CXtN|i|J.G£:.X3.AND.X0N<K + l) .6T.X3) 60 TO 3: 

IF IXINt<n.LT.X3.ANO.XONCK*l} .tE.XSI GO TO 3C 
Go TO 2C 

25 IF fYINL<(l.6E,Y3.ANt). Y0N(K*1) .GT.Y3) 60 TO ZZ 
IF J.LT.Y3.AND. YO«<«K*I) .LE.Y3J 60 TO ZZ 

GP TO 20 

30 IF IKOUJJT.GT. 100) GO TO 55 
. DELSS=DELS 

OSTEST^I (X0NIK*1)-XIM C3 >)*»2* ( YON (K ♦ 1 )-YIM( 3 J)**2>**.5 
IF IAPS(DS-DGT£STJ.LT. .01*05) GO TO 35 
IF IDSTE5T.lt . .C1#DS) 60 TO i) 0 
IF tDSTEST-.5*DS)' 50,A5,ttS 
?5 K=K-1 

43 X0MLK41 )-XlNl3) 

TCNCK*H = YIN'< 3) 

GO TO 55 


J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

'j 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 


AS 0 ELS= 0 ELS*tr>S-DSTFST)/FL 0 AT(K-l-K 5 TARTI 
IF (KPUKT.Sr.lOJ DELS=(0rLS*DELSS)/2.P 
GO TO 15 

50 DELS-DLLS-DSTEST/FLOAT (K-K START) 

IF IKOUNT.GE.IO) DELS- IDELS*DELSS)/2,C 
60 TO 15 
55 DELS1=DS*1.2 

IF iDELSl.eT.OELS) DEL51=0EL5 
WRITE l6,65lK0UMT,A,e,C»D ' 

WPI TE (6,70)DFLSIM,DELS,0ELS1 tDSTEST 
KFKD=K*1 
K5T ART=KSTAPT*1 
. 00 6C I=KSTART»KEND 

AlPHA«I)rALPHAIl)/PI018D 
60 COHTINUE 
RETURN 


65 FORMAT «lH0f2X,IR,2X, 10HITERATI0NSt2X,i( HA 
112.5t2Xf4HC = , 1PE12.5.2X, 4HD r ,lPri2.5) 
73 FORMAT l3X,10HDEtS IN = ,Fe .5 ,3X,7HDELS r 
1F8.5,3X,9HDS7EST ^ ,F8.5) 

END 


J 

J 

U 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

.i 

J 

J 

J 

J 

= ,1PE1 2.5,2X,4HB = ,.1PEJ 

J' 

,F8.E,3 X^HHOELS OUT = ,J 
■ J 

J 


E59C 

C6D3 

C61D 

“620 

C63D 

C643 

E65Q 

EG'GD 

C670 

C6PC 

C69C 

CTCO 

C71D 

CT20 

C73C 

C74D 

C75C 

C760 

C77E 

C78C 

C79C 

C8C0 

C810 

C82C 

C830 

C84D 

cesc 
cefio 
C8 7D 
E88C 
E890 
C9C0 
E91C 
0920 
C93C 
C943 
E950 
C96C 
C®7D 
C980 
09 9C 
1C EC 
ICIO 
iC2G 
1C3S 
1C4C 
ICSO 
1C6D 
1C70 
1C8C 
1090 
IlCO 
1110 
li20 

1130 
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SlEROUTINf LEH IK) L 

L 

SU3R0UTINF TO CALCULATE POINTS OK A LEHNISCATE L 

L 

COKHQK /rOR3SS/IO,DELS,XBKI23 J ,YBK « 20 ) , XON« 5 CCI , Y CN 1 5 00 J jOYDXCJ 5 0CL 
1 ) ,ALPHAI5GD),CAPPA(5C0»,S0Nt5DnifP1018C L 

COMMON /SS/ NBDYl tNBODY 2,TYP3DY,NE0YS L 

CCKHON /MAIN/ XIN 1 1 □ ) ,YI N ( 13) ,DELSM X .PI 02 ,DE LSI . 1 HUB L 

DELS1N=DFL51 L 

K=K-1 L 

XSTART=K E 

DFLS:RELS1 E 

KOUNT=C L 

IF tYiNii > .EQ.Yim 2 )) en to 3C e 

IF tXINCl).F0.XIN<2t> 60 TO 10 E 

SLOPE =1 YIN C2)-¥INf 1 ))/IYINI2) -XIM<1 )) E 

AROT=-TANL SLOPE ) E 

60 TO 15 , E 

13 SL0PE=99999. E 

AR0T=-PI02 E 

15 DC 2: IROTri.J E 

Xh=Yl5<TP0T ) E 

XINtIROT)=XN*COS<AROT)-YIN(TaoT»’»SlN<AftOT J E 

23 YlN«I‘?OT)=XN*SIKlAROT)*YlN{TROT>*COS<ARnTJ E 

25 K:kSTART E 

33 XCNIK411=X1NI2) L 


THETKX:ATAN UBS (T YIN t 31 -YIN C 2 11 /I XI N ( 3 ) -X IN ( 2 ) 1 J) L 

ArSORTM tXINI 31 -XIM 1 2 ) 1 **2 + lY IN 1 3 ) -YIN < 2 J )•* 21 / C 2 .C#S 1 N C 2 . 0 *THE TH XL 
1 I n E 


YCN lK + 1 1 = YI N<2) 

CAPPA(K-»1) = 0.D 
DYCXO(K-»l)rC.O 
ALPHA IK+1)=Q4C 
K0UNT=K0UWT+1 

Ds^DFL^"'" ORIGINAL PAGL ib 

DTHETrD5P*2/A*#2 OF POOR QUALITY 

THET=0T+I£T*.5 

35 R=AYS0RT12,3*SINI2.C*ThET) ) 

D5CHFK:R*C0S<THCT1 
IF LD'CHEK.6T.1.1*DS1 GO TO 4C 
IF (0!-CHEK.LT..9*DS> 60 TO R5 
DEL sms 
GO TO 5C 

90 THFT=THET-.02*DTKET 
PC TO 35 

95 TH£T=THET*. C2*DTHET 
60 TO 35 
5G K=K-*1 

55 R=A*5GRT C2. 3*SIkC2.C*THET) ) 

XCN tN*l)=XINL2»-R*C0S(THET ) 

YCN «K«1 )=¥rNl2»+R*SlH ITHFT ) 

SON U*1 )=SON(Kl+SORTLf XON tK+1 1-XON I K 11 **2 ♦ I Y CN( K -*11 -YON I K 1J**Z ) 
IF LABS CSOMfK-*! 1 -SONI iD'I.GT*! •05*PS» GO TO 5E 
IF IAPSISOMLK+1 l-SONLK 1 ).LT.*95*DS1 60 TO 65 
GO 70 73 

60 THET=THET-.02*DTHET 
GO TO 55 

65 THETiTHF7«.02*DTHET 


ccrc 

COIC 
C320 
CC3C 
CP9 0 
CC50' 
CC63 
CC7C 
CDPu 
EC 90 
Cl DO 
CJID 
E12j 
C13C 
C19G 
C15D 
C16D 
CI7C 

Gieo 
C190 
C2GC 
C21C 
E22C 
C23C- 
C293 
C253 
C260 
C27C 
C28D 
C29C 
C3C0 
C310 
C32C 
C33C 
C39E' 
C35D 
C26C 
C373 
C38C 
C39C 
E9CC 
C91C- 
C92G 
C«3D 
C99r 
C*)SC 
C9ec 
C47C 
0 486 
C4 5C 
CSEC 

C51C 
C5 2C 
C533 
C54C 
C553 
C56C 
C57C 
C5P3 
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I5C TO 55 .L 

7C DYCXCfh+ n = -T*N <3.0+1 HrT) ^ 

ftLPHftfK+l)=-3.D*THET 

CAPPft(K«n-3.0+SQPTtSIN(2.D*TH£Tl/2.D)/A L 

DS=OCLS/SORTll .0 + ABS(CAPPA CK+ 1 > ) I • L 

IF lAPSIDS-DSSAVEJ .GT . . 2S+DSS AVE) DS = DSSAVE + SIGN I .25 +DSS A V C , DStDS SL 
1 A VE 1 - L 


lEVJ 

T6:c 

C61C 

C6?r 

C63: 

CGiir 

C65G 


P5SAVE=.PS 

D7HrTrf)S + S0PT»SIN<2.D+THETl/2 .0»/A 

THE7=THET+0THET 

ir {Thet.le.th: THXj go to so 

IF fK0UNT.ET.50) GO TO 95 

OSTESTri fXONfK* n -X INI 3n+*2* ( YON (K *1 )-YINI S ))*+2 »**.5 
IF IDSTES7.GT .DS) GO TO 9C 
IF fDSTES7.LT..C301+DS ) GO TO 75 
IF fOSTFST-.5»DS) 85,85,8? 

75 YON fK»l )rYIM3) 

XCNIK-*lJrXIN( J) 

GO TO 95 

°C DELS=PELS-DSTE$T/FLOAT (K + l-KS TAPT) 

GO TO 25 

»5 DU.S=0ELS+DSTEST/FL0A7IK-H-KSTART) 

GC To 25 
9C OELS=.e*DELS 
GC TO 25 
95 PFLElros*!,? 

If fDELSl.GT.OELS) DELSl=DELS 

UPITF (6,115)K0UNT ,THETMX,A 

WRITE (6,120)D£LSIN,DELS,nELS l.DSTEST 

K£>,D = K*1 

KSTABT=KSTA'?T+1 

IT tYTNI2».rC.YINtlJ) GO TO 105 
no 12' KR0T=K5 TART,KEf.C 
XA'rXOKIKROT) 

XON fKPOT) = XN*COSf AROT ) + YON(KR OTJ+SIN (AROT J 
YfN iKFOTIrYON IK ROT ) *CC S <A R OT ) -XN+ SI N ( ARC T ) 

A IP HA IKRoT)=AEPHAIKROT)-APOT 
DYCXO IKROT) rTAN lALPHA (KPOT J ) ‘ 

ICG CONTINUE 

105 DO lie KAL-KSTAPT,KENO 
130 ALPHA (KADrALPHAfKAD/PlOieO 
return 


L 

L 

L 

I 

L 

L 

L 

L 

L 

L 

L 

L 

•L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

I 

L 

L 

L 

U 


115 FORMAT f 3X,I3,2X,13HI7EPATIONS , 3X, 1 3HT HCT FXCA L C = ,F 1 0 .5 ,3X , 8H AL 

3CALC r ,F10,5) 

120 FORMAT I3X,10HDELS TN r , F8 .5 , 3X, 7HDELS = ,F 8.5 , 3 X.llHDCL S OUT = ,L 
1F8.5,^X,9HDS7CST = ,re.t> ’ 

END ; 


rtt? 

167E 

C68C 

C69C 

C7CC 

C7ir 

C72G 

C720 

ZIHZ 

C750 

C76E 

C77C 

C78C 

C79C 

t fit? 

E8ir 

C82C- 

:p3l 

CSAC 

C85C 

C8tn 

CF7C 

C8?E 

C89C 

C9CC 

E91E 

E92D 

C93r 

C995 

C95C 

C96C 

C97D 

C9SC 

C99C 

ICCC 

ICIC 

1C2C 

1C3C 

109C 

1C5C 

icto 

1C7C 
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St'BPOUTINE MIRROR (K,YCL> K 

K 

THIS subroutine MIRRORS THE HOB TO OBTAIN THE POINTS ON SHROOD H 
USED FOR 22Y - 2-D INLETS *1 

H 

COHHON /FOR3SS/ID,DELS,XBK (2D ) , YEM ?D > , X ONI 5 CO , Y CNI 5 CO ) ,OYDXO (5PCH 


1 1 ,ALPHAC5CC),CAPPAI5DCJtS0K(5C 
COMMON /SS/ NPDYI ,NS0DY2,TYP3D 
DO 1C Jrl.NBDYl 
K=K + 1 

I5TAR-1-»nEDY1-J 
X0NIKJ=X0NIISTAR1 
Y ON I K irj. c*YCL-Y0N I TSTAR » 

CAPPA (K) r-CAPPA IISTAR J 
DYDXOIK1=-DYDXO(ISTAR1 
ALPHA IKl =>ALPKA tIST AR) 

SON(K )=SCNtTSTAR) 

1C CONTINUE 

WRITE C6,15IYCL 
P FT URN 

15 F0RMATI3RHCHUB MIRRORED INTO 
END 


ItPIOiec P 

♦NPDYS K 

K 

H 

•ORIGINAL PAGE IS H 

OF POOR QUALITY « 

K 

H 

K 

H 

H 

M 

H 

M 

CENTERLINE = ,F8.3 » 

K 


CDCC 

CCID 

EC2D 

CD3C 

ECHO 

EC5C 

CCtC- 

CC7D 

CCaD 

CC9C 

CICO 

CllD 

CI2C 

C130 

CIRC 

C15D 

E160 

C17C 

CIED 

C190 

C2GG 

E220 



n n> 
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SUBROL'TIK'E XYCALC t K ST AR T,K2 ,M IN ) 

‘ — XVCALC — 

. . .. .PENERATFS DATA FILES FOB .OM7B ODY, POINTS . • 

INTEGER S6EN 

BEAL X< 3£3'r') » Y T 500> t • C t 3CD) *$' ( ICC I , 'PJ <( bci 

■ CONPLFX ZI30C),DIt300),D2Z,?Z ,FZTRP,DZTRP 
LOGICAL THIN, EVEN, SPGEN, DONE 
CPHPON/SE6N0/NSEG, J 

COHHDN /MAINZ X IN f 1 D ) , Y 3 N ( 1 0) ,DF L SM X , PI 02 ,DE LSI , I HUB 
COMMON /SPBENC/ A ,PSMA X, RMA X ,T HI N, g , TMI A ,DSE ND 

COMMON /rORJSS/IO,DELS,XSK C2j ),YEX f ? 0> , XOV ( S CCl , Y (IN I5DEJ .DYDXOT 
l>»ALPHAtSDOJ jCAPPA (5GCJ,SON(5E01,PI018C 
DATA KSHAX.NSS, EMPTY, ONF/jno,20C,1.0E2C,l .DOCl/ 
makeltst /bodyin/ z,si 

namelist /auxin/ A,OSMAy,RHAX ,THIN,P,,NFIN,SP,NSP,rSEND.OONE. 

1 fven,thin- ■ ' ’ 


H 
K 
N 
N 
■ N 
h 
N 
ti 
K 
U 
N 

50CN 

N 

N 

h 

N 

A 


c..,.. initialize program. 
le no IS i-i,nshax 

15 7(I»=EHPTY 

si=c,r- 

LKAX-NOO 
Ar. 17 

DSMAX=DELSHX 

THN=.FAL$E, 

RPAXn.2 

nSEND=DSMAX 

DONE=.FALSE. 

E VEP!=. FALSE - 
P = C.3 
TMINrE.l 
NF1N=G 

NSprr 

C>>>,>INPUT BODY POINTS AMD BCDY TYPE. 

2D READ (NTN.BODYlNJ 
DC 25 I=1,NSMAX 

IF IPEALCZlin. EO. EMPTY » GO TO 3D 
ZB NS=I 
3CSI1)=S1 

ieAD=S£CNIS,2,NS) 

IF TIPAD.NE.O WRITE I6,12SI1PA0 

C SET UP DERIVATIVES + CURVATURES. 

DC 3B 1=1, N<^ 

35 D2m=DZ7RPtS,Z,SfI J,NSJ 
PO 4C 1=1, NS 
D2Z=DZTRpfS,0Z,SIIl ,NS1 
41 CII1 = AIKAG« COfUGtOZ (1 ) »!»02Z>/ CABStDZ ( 1 1 


K 

N 

N 

N 

N 

A 

N 

A 

A’ 

A- 

N 

A< 

A 

N 

N 

N 

N 

N 

A 

A 

N 

N 

A 

N 

A 

A 

N 

N 

A' 

N 

M 

N 

N 


C input auxilliary icontrolT' data. 

4E READ tNIN.AUXINl 

IF {KflN.EQ.C) NFTN=NS 
SFI NrSINFIN > 

DSKAX=ABAX1 ( DSH AX, D SEND J 
IF (EVEN) Go TO 50 


CCCC 

CCIC 

CB2D 

CC30 

CE4G 

ccsr. 

CC6C 
CD75 
CC80 
CC9D 
CICD 
Ell? 
C12G 
EI30 
C14C 
CISC 
CISC 
Cl7? 
C18Q 
C19C 
E2DE 
C21C 
C?2C 
C23C - 
CZ^C 
F25C 
C263 
C27G 
E 2 fiC 
C?9C 
E3CC 
C310 
E32E 
C330 
:34D 
C3SS 
C3L0 
C37C 
C38C 
C35C 
C 4 EC 
C4 1 C 
C42j 
0430 
C44C 
E45C 
C46C 
C47E 
C480 
C4SC 
-cstc 
rsic 
rs 20 

C53P 

C54? 

L55C 

C5bC 
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c 


c 


c 


c 


GENERATE BOf>Y POINTS ON A SEGHEMT. 

IF l.M0T.SP6ENtS»Z»CtNStSP*NSP,SFIN,NHAXJ) GOTO I3C 
BO TO 8G 


...GENERATE UPPER ANO LOWER SURFACES TOGETHER lEVENJ. 

5 : SHALF=SFINF2.0 

IF (NSP.LT.ll GO TO 55 
IF «SP<NSP) .GE. SHALF/ONEJ CO TO fcO 
55 IF C.N0T.SPBENtS,2,C,NS»SP,NSP,SHALF,NMAXJ) CO TO 140 
6D SREH=(SFIN-SP«HSPT 1 /ONE 
DO fcS I-1,MSP 

IF tSR(I).6E.SREH) GO TO 7C 
65 CONTINUE 
GO TO 14C 

72 IF .GT.NKAX > CO TO ISO 

75 1=1-1 

IF n.LT.Il GO TO 8C 


NEP=NSP-* 3 

SFtNSR| = SFIN-SPm 
GO TO 75 


ORIGINAL PAGE IS. 
iP POOR QUALITXl 


...TEST FOP FINISH, 
ec IF (DOME) GO TO 85 
GO TO 45 


...OUTPUT RESULTING ON-BOOY POINTS. 

R5 DO 92 1=1, NSP 

ZZ=F7TRP tS,7,SP f 1 ) ,NS) 

0?(I)=0ZTRP(S,Z,SPlI) ,NS) 

02Z = DZTRP(S,DZ,SP(H,NS ) 

C(IJ= AIKAGtC0NJB(DZtI))*D2?>/CABS(CZtl>)**3 
X(I )=REAL(ZZJ 
90 Y (I ) = AlKA6f 7Z ) 

K1=KSTART 
K2=NSP*KSTART-1 
DO 110 I=«1,K2 
IT=I-KSTART*1 
XFN r 1 )=X t II > 

Y0N(I1=Y(1I) 

CAPPA(I)=C (II 1 

IFt ABSICAPPAI I) ).LT..CC01>CAPPA(1 )=0. 

IF IREALfOZinn.EQ.C.I 00 TO IOC 
DYDX0II)=AlHAGtDZ(lI>>/REAL(D7tIIl» 

IF (ARSIDYDXOdlJ .GT.999.> GO TO 100 
If (ABS(DYDX0(I}>.LT..C'001> BO TO 95 
ALPHA tl> = ATAN(OYDXO (I n*18C./3.14157 


K 

h 

N 

K 

N 

K 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

K 

N 

N 

N 

N 

N 

N 

N 

N 

N 

,M 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

K 

N 

N 

K 

K 

N 


GO TO 1C5 

95 OYDXO(J» = C. ^ 

AIPHA(IJ=C. 

GO TO lOE f' 

ISO DYDX0(1»=999, ^ 

ALPHA(lJr9C. 

1C5 SCNII)=C. ^ 

1F( I.Nt.DSONd )=S0Nd-l» + S0R7((XONd)-X0Nd-l) > 4 *2* ( VON { TI-YON tl -N 
lin** 7 ) 

irdNSEG.EO.O.AND.II.EO.D.Oft . I J.E Q . 1 . A NO . II .EQ . 1 I J SON d »=C. . N 


ES7D 
CS60 
S59C 
C6EC 
C61C 
L620 
f 63C 
S640 
C65C 
C66C 
C6 7C 
C 6 S 0 
C69C 
C7C0 
C71D 
C72E 
C73f 
E74C 
C75D 
C76D 
C77C 
C7?D 
C790 
cscc 
ceio 

C82C 

C8 3C 

ce 40 

C850 

C86C 

E 87 F 

C 88 G 

C89E 

C9C0 

C91C 

C92D 

C930 

C94J 

C952 

r96E 

E97S 

C98S 

C99i 

lECC 

ICID 

1C20 

1C3C 

ICRC 

1C5C 

1S6C 

1C7C- 

1C8C 

1C92 

IICC 

ni'i 

1122 

113C 
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tr (I.EO.KIJ GO TO no N' 

rF«XONir>.EO.-XON«T-l‘) )CAPPAtl )=C*PPA(I-1J h 

IF (XONtD.FO.XONfl-l n GO TO IID ’ ' « 

IF I IDYDXOCI )-DtDXoi I-l ) )/IXON m-XONO-l ) I+C APPA ( S'l.LTiO.JCAP'Pfl CI )N 
l=-CAPPACn ■ ■ ■- N 

IFtl.EQ.tKl + inCAPPMI -ir=SIOmCAPPA‘(I-l),CAPPAm> N 

IFtDTDXOU 1 *DYDX0<,I“1 I .Ll.O.. AND.DYOXOd ) .GT ,C. J C APPA «U =-ABS tC APPN 
lAIDl “ - IM 

IF ei.LT.{K2+2J> GO TO 110 ■ N 

IF tDYOXOtl J^DYDXO ( 1-2) .LT.O. ) GO TO 110 - K 

IF « (DYDXO( I-l ) .BT. DYDXOtl > *AND .OYDXO ( I-l J .L T .OYD XO (I -2 J I.OR» tDYDXK 
10 tl-D.LT.DYDXOm . AND.PVDXO< I-ll .GT.DYDXOir-jn ) GO TO llC N 

IF HCAPPA {T-H.LE.CAPPA(I),AND.CAPPA tI-l).6E.CAPPAcf-zn.0R.ICAPPN 
1 All -D.GF.CAPPA ei) . ANP.CAPPAC I-l) .LE .CAPPA II -2)1 » GO TO 110 N 

CAPPA ll-l)r-CAPPAf I-l ) ^ 

lie CCN71PUE K 

WRITE l6,1151NSfNSP»0St1AX,Xll )»Ym ,X (NSPJ ,Y CNSP) K 

115 F0RPATI1HC,7X, _ K 

1 58HDIRECT I HTERPO L ATI ON . FULL POINT-SPACING REQUIREMENN 

ITS HrT./2AX ,19HN0. OF INPUT PTS.r » 14 , 2X . 20H AO . OF OUTPUT PTS.= .IN 
24 ,2X .16HDSMAX = DSEND = ,F 10. 2/24X . 1 4 HS T ART ( X.Y ) = t , F 1 6 . 6 , 1 H , . F2 OK 
3.t, lH)/24X,12HENDrX,T) I ,F1 C ,6,lH . , FI Q . 6, 1 H > ) - N 

IF IDONE) 50 TO 120 N' 

12C RETURN N 

C.... .ERROR MESSAGES. N 

125 F0RMATI2CHSCEN FAILFD . IPAD= .131 N 

130 WRITE I6.13S1 N 

135 F0RHA7I33HSPGEN UNABLE TO COMPLETE SEGMENT ) N 

STOP N 

14C WRITE 16,145) N 

, 245 FORMA TI29HSP6FN UNABLE TO DO EVEN POOY > A 

STOP N 

■■ 150 WRITE C6,15E)NSP , N 

155 FCRHATI'IRHTOO MANY POINTS FOR POTH SURFACES,' NLOWER= ,14) K 

STOP N 

EKP ■ . K 


1140 

use 

ll'GD 
1170 
1160 
1190 
l'2CD 
121C 
122C 
1230 
1240 
12 50 
126E 
127C 
126C 
1290 
13C0 
1313 
132D 
1330 
1340 
135C 
136C 
137E 
136D 
1352 
14 DD 
1410 
14 20 
14 3G 
14’4C 
1450 
1463 
147C 
I48C 
149C 
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ORIGINAL PAGE IS 
OF POOR QUALm' 


LO&ICftL FUNCTION SP6tN «S,Z ,C ,MS , SP ^NSP ,SFIN ,NK AX » 

C . . .. . GFMERATE S TABLE SP HAVING VALUES OF PARAMETER S AS UIDELT SPACED 

c AS possible and yet satisfying the following conditions on DS 

C 1 NSP .LE. NNAX 

C 2 DS ,LE. A/CCS) ( C= CURV ATURE I 

C 3 DS ,L£. DSHAX 

C BA DSm ,LE. DS»I-n*R*'AX 

C BB PSm ,GE. DS(T-IJ/RHAX 

C FOR THIN SECTIONS, AN ADDITIONAL CONDITION IS 

C DS ,LE, B#TLOC (TLOC=LOCAL THICHNESSJ 

C..,.,SP6EN = .TRUE, IF ALL CONDITIONS HAVE BEEN SATISFIED. 


real sins ), C( ns ) , SP (NMAX) 

COMPL<^X 2(NSI,F2IRP 
LOGICAL THIN, FIN 

COMMON /SPGENC/ A , DS" AX, RMA X ,THI N ,P , T«I A ,DSE ND 

COHPON /“AIN/ XINI1D),YINC1D),DELSHX,P102,OELS1,IHUP 
DATA PNE ,CMIN/1 .OCOl, 1 . EE-6/ 


0 

C 

0 

Q 

0 

Q 

0 

C 

0 

0 

0 

0 

0 

0 

0 

0 

0 

c 

0 


COCC 

EClC 

CG20 

CC3C 

CCbO 

CC5C 

CC6C 

:c7c 

EOtC 

cDsr 

Cl EG 
CllC 
C12C 
C13D 
ClBC 
C150 
ClBC 

cnc 

ClBC 
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C 


c 


c 


c 

c 

c 


. .. .TNITI*Ll2ATrON SECTION. 

SPSCNr.FflLSf . 

- JlrKA)fC<NSP,2)4l 

IF 4NSP.6T.1) 60 TO 15 
IF iNSP.LT.n SPI1>=SI1) 

DSlr DfLSl 

ID SPI2 »=SPin+DSl 

...BEGIN HfilK LOOP. 

15 DO 45 J=J1,VHAX 

20 I=L 

25 D5LAST=SPtI-l>-SP(I-2 ) 

SEAK=SPfI-l).DSLAST/2.f- 

CA=AHAX1 (CHIN,AES(FNTPP«StC,SBAR,NS 1 ) ) 

DSLIK=AKIM1 «DS1 ,DSLAST*RHAX ) 

IF I.NOT.THINJ GO TO 3C 

TL0C = CABS(F2TRPIS,Z ,SFAR,MS}-F2TRP«S ,2 ,S thS I -SBAK ,NS J J 
DSLjHrAMiNJ (DSL IM , B ♦ AK AX I fTLO C * TH I N ) J 
30 DSFIN-SFIN-SP(I-H 

NFVENrDSFlN/DSLIH/ON£+l.D 
DSE VEKrDSF I N/FLO aT ( N£ VE N) 

DS=AHIN1 < A/CA.DSEVEN) 

IF tl.NF.J) DS=ArtINl (DS.OSLAST/RMAX ) 


C 

0 

Q 

Q 

Q 

0 

0 

C 

0 

0 

0 

Q 

0 

c 

c 

0 

(3 

e 

b 

0 

c 

c 

0 

Q 

Q 


...CALCULATED VALUE OF DS SATISFIES CONDITIDNS 2 THRU 4 A. TEST FOR 4E.Q 


IF IDS.GE.CSLAST/RHAX ) GO TO 40 ’ ' C 

C 

...IF COA'DITION 43 IS NOT SATISFIED, Rt-00 EARLIER INTERVALS 0 

...USING SMALLER VALUES OF. DS. IF RE-DOING ALL INTERVALS WON'T C 

...WORK, START OVER USING SMALLER STARTING VALUE OF DS (DSll. 0 

35 L=L-1 c, 

IF (L..GE.J1) 60 TO 2C q 

IF (NSP.GT. 1) RETURN q ' 

DS1=DS1/RKAX C 

GO TO ID .n 


,C IF CONDITIONS 2 THRU 4B ARE SATISFIED, TEST FOR FINISH, 

40 SPtJ )=SP (I-l J+OS 

FIN=SF1N/SP(I1.LE.0SE 
IF (FIN.AND.OS.GT.OSENDI go to 35 
IF (FIN) GO 70 50' 

IF (I.GE.J) GO TO 45 
1=1 ■*! 

GO TO 25 
4S continue 

C......SPGEN =. FALSE. IF CONDITION 1 CANNOT BE SATISFIED. 

RFTUPN 

C.....IF conditions APE SATISFIED, UPDATE NSP. 

5D NSP=1 
0ELS1=DS 
SPGEN=,TRUE. 

RFTURfJ 

FKC 


0 

Q 

Q 

0 

c 

0 

0 

0 

c 

c 

c 

Q 

Q 

0 

0 

0 

0 

Q 

C 


019C 

::2co 
C21D 
C22C 
C2 30 
:243 
C25C 
C26D 
C2TG 
CZ80 
C29C 
C3E0 
C310 
C320 
C33D 
C340 
C3SC 
C36C 
C370 
C380 
C39C 
CsCO 
C4 10 
C42E 
C430 
C440 
E45G 
C46C 
C4 70 

04 ec 

C450 
C5D0 
C5IE 
C52D 
C53C 
C54S 
CSEO 
C56C 
C57r. 
C58C 
C59C- 
C6CC 
C610 
0620 
E63D 
C64C 
L6,5C 
066C 
C6 70 
E68E 
C59C 
ETEO 
C72C 
C720 
C7 30 
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JNTE6ER FUNCTIOM SGFN fS»F,NS» . , _ 

.. .. .6ENERMES THE PARAMETER ARRAY S FOR THE SET CF POINT-PAIRS F SUCH 
.....THAT SCI) 6IVES THE UTNE INTE&RAL ON THE CURVE oF F/TRP tS,F,X,NS 

WHEN X=S(I). 

REAL SCNS) 

COMPLEX FCNS)tD?TRP 

DATA MAX,N,FH,TEST/R, 10,10.0,0.01/ 

DO 1C 1=2, NS 

10 SCI )=SC I-l»+CABSir CD-F CI-11) 

sgen=o'‘^^’"'‘* original page is 

Ss=sin-sn-ij QUALITY 

OARG=DS/FN 

AP60=5II-1)-OARG/2. C 

suK=e.o 

BO 15 J=1,N 

ARG=APGO*FLOATt J)*DARG 
35 SUM = SUM* eCAPSCDZTRP CS,F ,ARG,NS) )-l.D) 

SUM=SOH/FN 

ERROR=APSCSUM) 

OS=DS*SOH 
DO 2C J=1,NS 
20 SIJ) = SiJ)*t)S 

IF CERROR. 6T. TEST. AND. SGEN.EO .0) SGFNrl 
25 CONTINUE 

IF ISREN.CO.D) return 
ID CONTINUE 

C.....SPEN=INDEX IF IT OOFSN*T CONVERGE. 

RETURN 

END 


0 

0 

)0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

c 

0 

0 

0 

0 

0 

0 

0 

c 

0 

0 

0 


COEC 

EClC 

C020 

CC3C 

ECtO 

CC5C 

CC6C 

CC7C 

cceo 

CD9D 

ClCC 

CllD 

C12D 

C130 

OlAD 

CISC 

C16C 

C175 

cieD 

C19C 

C20D 

C21C 

C22D 

C23C 

C2NC 

C250 

D26C 

C27C 

C2Sr 

C29E 

C3C0 
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' COMPLEX FUNCTION R2TRP U,F,X-,NAJ 

t-VALUATION FOR DOUBLE 3-PCINT JftTERPOLATlON, 

LUnrLtX FCnAj 

COKFPN /NTRPC3/ 1 1 *12,0 (B I 

C FIRST EVALUATF FUNCTION COEFFICIENTS. 

CALL FNTRPA (AiXtNA) 

CALL PNTfiPC 

c then EVALUATE FUNCTION VALUE. 

DITRPrD.G 

J-0 

DC 10 Irn,i2 
j:j«l 

13 D?'TRP=D2TBP+CtJI*F 1 1) 

RETURN 

END 


P COCO 
P CDID 
P CC-2D 
P CC3C 
P CDilO 
P CC5C 
P CC60 
P C07C- 
P tCBD 
P ''CC9C 
p CICD 
P Cl JO 
P C12C 
P C13C 
P CIRC 
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C 


c 


c 


c 


SLHPOUTlfijr ONTRPC 

...CALCULATION OF C COEFFICIFNTS FOR DERIVATIVES OF DOUBLE 
...3-POINT interpolation. 

COUPON /NTRPCl/ L,I .All iA12,A 13tAl»l tA22 t A23i A?<l, A35, A3*)tAA«l 
COHPON /NTRPC3/ I 1 , 12 ,C1 ,C2 »C3 ,C4 
IF (‘l.LE.IJ 60 TO 25 
IF IL-3) 20,15,10 

...F OR ‘DOUBLE 3-POlHT INTERPOLATION. 

30 C1=+(A22+A33*A22J/A23*A33/A12/A13 
C«i=-|«33+A22*A33i/A23*A22/A3M/A2<J 
P=A23*A23 

C2=-nAll4A33+All)*A3 3/Al2*(A33*A44«A22*At(4* A22*A33>/A2<i)/P 
C3=*< lA444A224A441*A2 2/A344tA22*All*A33*An + A33*A22>/A13)/P 
60 TO 3C 

...FOR SIPPLE 3-POINT INTERPOLATION. 

15 C1=*IA33+A22t/A 12/A13 
C2=-<A33*A11>/A12/A?3 
C?=-4tA224Alll/A13/A23 
GO TO 3C 

...FOR 2-POINT INTERPOLATION. 

20 Ci=l.C/A12 
C2=-C1 
GO TO 3C 

...ONLY ONE TAPLE VALUE GIVEN. 

25 CI=C.i: 

3D 11=1 

12rl4L-l 

RETURN 

END 


R CCCG 
R CCIP 
R D020 
R C03D 
R CC4C 
R EC5C 
R CC6D 
R CCTO 
R ECEP 
R CD90 
R 01 EC 
R 'CIIC 
R E12C 
R C13C 

R C14C 

R 0150 
R C16G 

R cnc 

R C18C 
R CIVC 
R C2EC 
R C21C 
R C220 
R C23D 
R C24C 
R C25C 
R C26E 
R C27C 
R -02 82- 


'p^Gr’® 
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■ A FNTRP lA.FtX.K*! 

C.'i...-FUKCTiOK rVALUATION FOR DOUBLE 3-FOINT 'INTERPOLITION. 
RFAL r<NAJ ■ ■ 

COMHOW /NTRPC2/ Il,r2‘,CC«ll 

c first evaluate function coefficients, 

CALL FN7RPA--{AvX>NAT- 
CALL FNTRPC 

C,^..,TKEN EVALUAtE FUNCTION VALUE. 
entry FNTRRl IF J 
FNTRP=C.C 
J=C 

bo 10 1=11,72 
- J=J»1 

IC FNTRP=FNTRP+CfJl*F C T) 

RETURN 

ENEf 


S CCCC 
S CCIC 
S CC20 
S CCIC 
S CC'lC 

s ccE-r 

S LCtO 
s CC7C 
S CCFC 
S . CC92 
S 01 CC 

s cno 
s C 12 C 

S C13D 
S CIRC 
s CISC 
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COHPLFX FUNCTION FZTpP IA,F,XtNA> 

C COMPLFX FUNCTION EVALUATION 3». DOUBLE 3-POINT INTERPOLATION. 

CCKPLEX riNAI ‘ • 

CCMPOV /NTRPC2/ Il,r2,CIJ|» 

FIRST EVALUATE FUNCTION COEFFICIENTS. 

CALL FNTRPA (A,X.NA) 

CALL FNTRPC 

C.....TPEN EVALUATE FUNCTION VALUE. 

FZTPpro.C 

J-D 

DO 1C 1=11,12 
J:J + I 

3C F2TRP=F7TRP*CtJ)*F f IJ 
RETURN 
END 


T CCCC 
T CCIO 
T CD2C 
T CC3C 
T CC40 
T CDEQ 
T EC6C 
T CD7D 

T cceo 

T CD9D 
T -ClCC 
T EllC 
T C120 
T D13C 
T CIRD 
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C 

c 


c 


c 


c 


c 


IQ 


15 


?5 


SUBROUTIME FNTRPC 


.CALCULATION OF C COEFFICIFNTS FOR FUNCTION VALUES EY DOUBLE 

.StPoint interpolation. • • • 

COMHON /NTRPCl/L »I.All.Al?,Al3,*Jit,Aj2tAZ3t*2R.A33.A54,A4i» 
COKPON- /NTRPC2/ I1,I2;C1,C2,C3»C4 J ^ ,« 4 4 

IF (L.LE.n 60 TO 25 
IE <L-3> 20.15,10 


FOR DOUBLE 3-POINT IMTCPPOLATIOH . 

c1-*A33/A23*A22/A12*A33/A13 ‘ 

C.4--A?2/A23»A33/A34*A22/A24 

P2=A33/A23*A11/A23 

P3=A22/A23*A44/A23 

C2=-A73* (P2/A12fP3/A24 I 

C3=*A22|MP3/A34-»P2/A13J 


BO TO 3C 

FOR SIMPLE 3-POJKT INTERPOLATION. 

C1=4A22/A12*A33.AA13 

C2=-AI12A12*A33/A23 

C3=«A11/a13»A22/A23 

GO TO 3C 

FOR 2-POINT INTERPOLATION. 

Cl=^*A22/A12 

C2=-A11/A12 

GO TO 3C 

ONLY ONE table value GIVEN. 

Cl=l.r 


30 31=1 


12-1+L-l 

RETURN 

END 


U CCCO 
U CDIC 
O' Cb 20 
U CD3D 
t CD40 
U CC5C- 
U CCtC 
U CC70 

u cosr 

U / CD9D 
u CICD 

ii cilc 
u C12C 
0 Cl 30 
u C14D 
U 0150 
U C16C 
U 0170 
U CISC 
U C19E 
U C2CC 

il 0210 

U C22D 

U C230 

U C240 

U C250 

U C260 

ii C.27D 

li C28D 

ii C290 
1 



SL'SPOMTIhE FNTRPA 

V 

CCEC 

CPMKOf. SOfROUTlNE EVALUATFS A COEFFICIEMTS IK OOU*>LF 

V 

COIG 

3-POIK'T INTFRPOLATIONSt 

V 

CCSO 

L=KO. OF POINTS IN THE FIT 

V 

CD3C 

IrlMOEX TO FIRST POINT 

V 

CC4C 

REAL A(NaI 

V 

CC50 

CPHKON /KTRPCl/ L , I ,P 3 1 , A 1 2,A 1 3 , A 1 1 , A22 , A ? 3 , A2N , A33 1 A3«l t *««! 

V 

CC6C 

GET 1 AND L BY TABLE LOPK-UP. 

V 

CC7C 

LrLlMlT Cl,NA»3) 

V 

CEBE 

K-KAxr<liKA-2) 

V 

CC9C 

CALL TLU (A,X,NA,J> 

V 

CKC 

IF tJ.EO.LIMITI?,J, “) } L=«t 

V 

cnc 

l=L3MITTl,J-lrM3 

V 

C120 

CALCULATE A-ARRAY. 

V 

Cl 30 

AUrAa 1 

V 

Cl*tC 

A22rA<l+lJ 

V 

C150 

A?3=AII-»2) 

V 

C16D 

IF CL.NE.4J IF JL-2J 20,15,13 

V 

C17C 

A4l| = AfI-,3) 

V 

ClEC 

A1I» = A11-A<| i| 

V 

Eis: 

A?4rA22-Ai(4 

V 

C2CD 

A34:A33-A44 

V 

E21E 

Aimrx-A44 

V 

C223 

A13=A11-A33 

V 

C23C 

A23rA?2-A33 

V 

C24C 

A33=X-A33 

V 

C253 

AX2=A11-A22 

V 

C2fcC 

A22-X-A22 

V 

C270 

Alirx-All 

V ■ 

C28C 

tS’’"* original page is 

OF POOR QUALITY 

b 

V 

C29C 

C3CG 
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SUEPOUTINE TLII fTJlBLE ,APS,N,J > 

TABLE LOOK UP FINDS I SUCH THAT 
APG.GF.TABLflll .AND.APG.LT.TAtiLri I*J J 
IF 1=0, APG.LT.TABLEIll 
IF T=N, APE.GE.TABLEINJ 
PIAL TASLEtNJ 
I=LlKiTII,l,N) 

IF «ARg.GE .TABLECT ) t BO TO 15 
C..... DESCEND IN TABLE. 

10 1 = 1-1 

IF ll.LF.P) RETURN 
IF (ARG.GE.TABLEd J ) RETURN 
ec TO 1C 

C...., ASCEND IN TABLE. 

15 IF (I.GE.Nl RETURN 

If IARE.LT.TABLETI + I) 1 RETURN 

1=1*1 

60 TO 15 

END 



k CCCC 
K CCIC 
N CQ2C 
B CDJC 
U CONE 
W CC5C 
V ZQ60 
W CC7C 
y C06G 
« C09C 
If'- CIC'D- 
y Cl jn 
y C 12 C 

N C130 
N ClAO 
W CISC 
y CI6C 
W CITE 

b ciec 
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FLKCTION Linn 

INTEtER FUNCTION LIMITS J 6FTUEEN, I 
LIHn=I 

IF tJ.LT.LIMITI RETURN 
LTH1T=K 

IF <J,6T.LIHIT1 RFTORN 

lIKITrj 

RETURN 

EKD 


-X tCCG 

*ND K. X CCIC 

X CD20 
X CC3C 
X COR 
X cr5 
X COE 
X CG7C 

X ccec 


c> n 
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c 


SUBPOUTJNE HPUNCM ' y 

CPH«OM /FOREOD/ 56ECHF , ISIGF, ICURVN»NOKEUF ,I VCRT, AL 
CCMHOK /SS/ NfiDYl,NB0nY2,TYPBDY,NBDYs ' V' 

CCHPON /F0R3SS/ID,DFLS,XeKt2D ) , YPK I 2 Q 1 , XON C 5 CC I , Y FN C SCO» , DY DXOC5 '':y 
H.,ALPHA(SDQ) ,'CAPPfiC5CC> ,SON(5 0D),PI018C Y 

C-U.I. . /hur-te;-/ TFLAet'NDY4»PR06vTITLF J fBODItSl'* J-,-IDtMT>Yt0t251 ,YHY 
llfZ5) .NPYC25) ,XPaKt25 ) ,^BPPTS (55,M06,NRAKFS Y 

CPHPOM/ LoT/X«IH,YMIN,ORD,FXEP,XX,YY,LPWCH6, JPLOTA,«H Y‘ 

nj«F«SION YOFFJZaCMf XOFFf?3DJ» FI C 530 y 

DlMFf»SION X(2EJ,YC25» Y 

COH*tOK /HKSR/ NNSD,NSDBnVUG> y 

data B0DVD/6H-B0DY /,IFLAGl/i|H 1 1 1/ ,IFLAG ?/A F 1 1/,722Y/6K 43Y/,Y 

1IFLS2A/1H /,IF_LR2i?/lHl/ y 

IF YLC AMD YHI ARE READ IN AS ZERO, CALCULATE THEM FOR THAT RAKE Y 
(FOR MUB AND SHPOIID CASES ONLY) l/^/73 y 

Y 

FIND HIGHLIGHT ON THE SHROUD V 


NINETY 

NEIGHT=8 

121-21 

lONErl 

ITWOr? 

IZER=C 


Nt-NPPPTSC 1 >-^1 

1FCIFIA5.EC.1JNE-=1 

NC:NSPPTS(2) 

( SET JKIN-LAST shroud PT., in case X NFVER INCREASES Or SHPOODIVTOLJ 
JHlNrii'E 
DO 1C l::rNB,NE 

IF (XCNd-H ).LT*XON (I J 1 60 TO 10 
JFIN^T 
GO TO IS 
!C CONTINUE - 
15 DO 20 1=1, NF 
23 FKIJrl 
NOFF=r 

IF (NRaKES.FOjD) go TO 7C 
DC 65 r=l,NPAK£S 
NLO=NOFF+1 
NOFriWLOVNDVm 
ENDY=hlDY (I ) 

IF (YHT ( 1 1 »E0.0 . Q.OR. YLC ( I ) iEO, D, 01 GO TO 25 
60 TO 35 

25 IF (VHIID.NC.D.O) GO TO 3D 

CALL SINTP IXONINPJ ,YONfNH»,JMIN-NB*l,XRAK(I >(YH» 

CALL SINTP (X0NlNB),FI(NBI,JitIN-NB41,XRAK(T> ,FH'} 
lF=Fil 

DS=s6pT< (XONCIF >-xdN(TF-*l } J#* 2*(Y0Ntiri-Y0Nt IF+l j )**2 ) 

YHI (IlrYH-DS 


Y 

Y 

Y 

Y 

Y 

Y 

Y 
¥ 

Y 

Y 

Y 
¥ 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 
T 

Y 

Y 


CCCE 

CC20 
CD3r 
CCAC 
EC 50 
C06D 
CE7C 
C-C 8 E 
CG9D 
CICO 
Clio 

C12D 

C13D 

El'IC 

CISC 

C16D 

C17C 

C18C 


Cl«3 

C2C0 

C- 21 C 

C22D 

C23C 

C 2 AD 

C2S0 

C 26 D 

C27C 

C 2 ec 

G290 

C2CC 

C31C 

C,32C- 

C33C 

E3P0 

C35Q 

C36P 

0370 

C3GD 

C39C 

CAC3 

CNIO 

CA2D 

CA3C 

CA4E 
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7Cj ir tYLO(IJ.NE.O.O.OR.XR*K(I>,LT.XONtl) J GO TC 35 V 

CALL SlNTP f XOM,YON,NPDPTS«1» tXRAKilJ ,YL» Y 

call siktp exoN.Fi.MBDPTsm, xrak • - y 

IF=FII Y 

OS=SOPTtUONtIF)-XON(IF+n)**7+IYONeiF)-YONC JF-H J I**2I Y 

YL0«I»::YL«DS Y 

75 0 Ylr lYHI (I »-YLO«I J > /EAinr Y 

K=C Y 

DO 55 JrKLO.NOFF Y 

DJH=J-NLO . Y 

XPFF (J»=XRAK Cl) Y 

YCFF(J)=YLOfI) + DYI*OJ)' Y 

YKAN=YY*ORO+YHIN 

1 FILPNCHO.EO.2) YOFF C J1=Y«AM- C YOFF t J > -YP A). > 

IF IXOFF(J)-X«INJ 55, Y 

AC IF IXOFF CJ»-XX*EXEP-XWIN) A5,A5,55 Y 

A5 ir IyOFFCJ)-YV*ORD-YHIN» 5Ci,50,5S Y 

5C K=K+1 Y 

XCK) = XOFFfJ) Y 

Y»K) = YOFFtJ) Y 

55 CONTINUE Y 

C Y 

CUCICI PLOT OFF-BOOY POINTS CRAKES) Y 

c y 

6F. CALL unfix, Y,K, lt-l,C,XMlN,EXEP,YHTN,ORD) Y 

55 CONTINUE Y 

C Y 

CCICCCC PUNCH OPTION CCICII Y 

C Y 

IF clpncmo.eo.O) return 

70 NTBOYrNtOY5«NNSD+l-I VORT Y 

NLOOP=2-IVOPT Y 

IF CNEDYS.E0.3. AND, PROG. NF.T22Y)G0TO75 

GC TO SO Y 

75 NTBDY=NTPDY-* 1 Y 

NL00P=3 Y 

S: Krc ^ Y 

IFCPBOG ,rc.T22Y) NLOOP^l 

DC 11' I-1,NL00P Y 

HrNTSP¥-I*l Y 

IFLACRrIFLA52 Y 

IF IH.EO.NTBDY .OR , NB DYS . EO .3 . AND . F .EO . 3 ) 1FLAG6::^IF LY 

lAFl Y 

IF (PR0G.E0.T22Y> GO TO 92 

WRITE Cl7,115MTlTLrCL),L = l,9 >,M,P0F)YP,1DFNT Y- 

WRITE (17,120)H,IFLA6G,N06,IV0RT,TDENT Y 

90 CCNT3NUE ‘ . • Y 

WRITE tl7,12S)10ENT 

92 NA=1 

NS=C Y 

IF II.NE.l) K=1 Y 

DO 105 J = Y 

IF (J.GT.NPOYS. AND.NNSD.NF.DJ GO TO 95 Y 

NP^NPDPTSCJ) Y 

CO TO 102 Y 

95 NS=NS-»1 Y 

IF CNS.GT.NNSDJ NSDBDYCNS >=NB DPTS (NBOYS+1 )-NBDPTS CKBOVS) Y 


CASE 
C46C 
CA7C 
CASC 
EA905C 
E5CC «0 
C510 
CE22 
C63D 
C5A0 
C55C ’ 
'C56C 


C57C 
C56C 
C590 'D 
C6DC 
C610 ' 
C62C 
C63C 
C6A0 
C6SC 
C660 
C67Q -D 
C68C :C 
C 82 C a 

E83: 

CP4D 

C695 


C72C 
L73C D 
r7AD 
C7S0 

C7faC 
C77C 
;7 8C 
E79C 
C SCO G 
0 

C 86 C D 
C8T3 C 
C92C 0 
C 
0 

C950 0 
C 9 S 0 0 - 
C97G C 
C9S5 
C993 P 
ICCC 
ICIG 
1C2C 


C 
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c 

1D2 


137 


NE=»S0eDYCNS) +NA-1 

iro NP=WB-NA*1 

.lFepR0G.Nt.T22y J5OT0102 

LASBOOrQ 

N01EOOr2‘ 

if<j,eq,ij moib6d=i 
IFt J.F0,H)LASB0D=i 
IF( J.fQ.i j icURVNr'l-ICURVN 

T R A N S F •' 

*«^»idfnt,j,k,xo«i,yon,ka,nb,prcg) 

N P— Kd*1 

1C5 continue 

lFiPRCG.NE.T22y IGOT 01 Q 7 

< TITJ. ten, L =1,6 ), height 

V Z— 2 « 

AL, TOME, I0nE,V 2,I2EP, NINE 
WFITEfl7,155)XX,XHIN,EXEPiYY,'¥HIN,0RD 

K -0 
KA = 1 
. J=0 
ME=NOrF 

lFiPR06.NF.T22y )GOT010S 

IFtKB.6T.100)NB=lDD 

irrc 

1F(M0'ff.Lc. 1QC)I6=1 

C. T R A M S F “ «RITE( 17,156) TONE , ,tITL E ( O , t=l , 6 ) , ffe ;f 21 
‘NCFF,TDENT,J,K,XOFF,YOFF,NA,MF,P';66) 

, IF iPROG.ME .T22Y) GO TO 110 
. IF( NOFF.LE . ICOIGOTOI 1 r 

NCFruoFF-lOO 

NA=NG*1 

KF=NOFF 

RF70RN 

FORMATS 


115 
12C 
125 
1?0 
1.T5 
lAC 
1R5 
1 

155 


FORMAT i 
FORMAT ( 

format ( 

FORMAX 
FCRHAT i 


9A6,I1,A6,?X,A6J 
Il,AJi,Il,8X,n,-A7X,A6,nx) 

62X,A6,11X) 

.n,'BX.lI,2X,'li ,3X,I 1 ) 
^”0*0»7X,3HD.O,7X ,3H90. I 
F0BMAT(1CX,-6A6,25X,I1 ) 

St., FCRHATCll,eX,6A6,22X,Il,2X,I2 ) 

' F0RMATC8F10.3) 

EM) 


>11, )X,I1 ) 


Y 

Y 

Y 

r 

Y 

y 

Y 

Y 

Y 
Y* 


1D3C 

1C40 


1C7D 

I Dec 


iicb 

112C 

1110 


use 


i?cr. 

121C 

122Q 

123C 

12A0 

125C 

1263 

2270 

128C 

1290 


i3ir 


132”c 
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SIEROUTIVE WRTXV t MP , IDENT, J, K , Y ,KA ,NB ,FRO 6) 


20 

CCCP 



ZO 

CCIO 

HKITE X AND Y COORDINATES 


zo 

EC2C 



20 

CD3C 

DIMENSION XU), V(ll 


ZO 

CD<iC 

CCMHON ^FOREon/ TGEPKF ,rsi6F, ICURVN»KONEUF,I WORT 


ZC 

COSO 

DIMENSION V<8) 




DATA T22Y/6H 23r/ 


ZD 

CC6C 

DATA V/6KJ |6H t6HFl 0,5«, 6H *6FX, 

,6HNX,n,, 




16H2X.I1,,6H3X,I1I/ 
ir (PUOG.NE.T22YI GO TO 10 
LflST-1 

NfUL =<NB-N«+lJ/6 
NFULLSNFOL *fc 
NREST=K**NFULL-1 
NLIF=Nfc-NA+l-NFOLL 
NREST1=NREST+1 
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IT=3 

N/>A TNA-6 

no 2 lC=l,NruL 
NAA=N*A-»6 
. NST0P=NAA45 

•IFCNS70P,EQ .\e»6 0TO'; 

WFITEU7,<(D1CX(L) ,L=NAA,NSTOP >,1T 
2 COKTIHUC 

IF{NDIF.t 0 .niGOT 06 
NDIf«=t6-NDIF)*iO 
ENCODrC6,56,DUKP)NDir 
E f'C0DE(6,56,DUHP2JN0IFM 
DEC0DF<6,59,DUMP)VEE 
0ECCDEI6 ,59,0UKP2)VF2 

V C21=VEE 

V (M l=VE2 

write «17,V1 «XtELI,LL = NRESTl,KP),NDTF,LASY,n 
GOT06 

5 WPITE(17,<l5><X(l.),L=NAA,NSToplttASYiI7 
*15 F0RPATt6riC,5 f? X,I1,3X,I1> 

6 IT = IJ 
RAA=NA-6 

DO 3L7 LC=1,NFUL 
NAA=NAA4fc 
NSTCP=hAA+5 
Iff MSTOP .EO .NP)B0T07 
WRITE <17,1|3) ( YiM,LrNAA,NSTOP ),IT 
3C0 CONTINUE 

IF tNDIf ,EQ. ORETUPH 

WRITE <17, VI (Y(LL) ,LL=NRESTI,NBI,N01F,LASY,I7 
RETIUTN 

7 WRITE <17,*l5 I (Y<L >,L=NAA»NSTOP) ,EASY,IT 
RETURN 

1C WRITE <17,25HGEOPF,ISI6F,ICIJRVN,NONEWF,NP,'ICFKT 
IS WRITE <17,5DIJ,K,IDENT 
2D IF <K.E0.1) RETURN 

WFI7E <17,35KXel),LrNA.NP) 

WRITE ll7,3EUY<LI,t=NA,Nei 
RETURN 

format statements 


25 

32 

35 

*t0 

5S 

56 

59 


I3,52X ,A6,] 1X1 

ni9x,n ,ii?x,A6,nxi 


FORMAT (llIl,3X, 

FORMAT ( 9X, 

F0RKA7(6E13«8> 

FORHATrsriC.S.l 

F0RHAT(1H«,64X, 

F0RHAT<16) 

FORRATtAe.) 

END 


IX‘,111 

n,2x,n,3x,ii j 


zo 

CC72 

zo 

C14E 

2D 

C150 

20 

Ci6D 

20 

C17E 

20 

Die: 

1 0 

C19C 

Z3 

C2CC 

20 

C21C 

20 

C220 

ZO 

C230 

70 

C240 

ZO 

C250 

20 

C2 50 

20 

C2SE 
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SUBROUTINE *REAA Z1 

COMMON /SS/ NBDYl,NBDDY2,TYPBDT,NBDyS 21 

COMMON yFOR3SS/IO,DELS,YB«(?a J»VBK(2D),XONf5CCl,YONISCO> ,nvDX 0150 021 
1 >,ALPhA(5OD1,C»PRAC5OD1,SON«5C0».PIO160 ZI ^ 

COMMON /MN5D/ NNSD , NS PBOY UO) Zl 

COMMON/ lot/xhin,ymtn*ord,exep,xx,yt,lpncho,iplot*,mm 21 

DIMENSION JHAXI201, JM1N(2DI, flREASC20), YAR(2D)21 

ltXXA(2GCl, nlSCIZCOI, ANULUS (200 ) ■ 21 

PI=3. 14159265 Zl 

JPLA=D , 21 

NPP1=NB0VH-1 2! 

DO 10 J=^NBP1,NB0DY2 Zl 

JJ=J 21 

tCM(«» .LT. CHANGED TO LE . TO AVOID AREA PLOTS FROM GOING UP VSTOL LIP21 
IF <XONtJl.LE-XON{J+l) ) GO TO 15 Zl 

1C CONTINUE Zl 

15 WRITE (6,75) 21 

IF INWSD.EO.Ol GO TO 40 21 

Zl 

SEARCH FOR MINIMUM AND MAXIMUM X ON EACH NSO (SPLITTER) Zl 

21 

Nr=NeODY2*l 21 

Nr=NB0DY2*NSDSDY( 1 ) 21 

DC 35 I=l,NNSr 23 

XPIN=X0N(N3) Zl 

JMIN(I)=NE 21 

XMAXrXON(NS) 21 

JKAX(I)=NP 21 

NEH1=NE-1 21 

DP 3t J=NP,NEH1 ' 21 

If (XON(J).C-T.XMAX) GO TO 25 21 

IF <XOK( J) .LT.XKINl 60 TO 25 21 

60 TO 33 21 

23 XPAX=XON(J> 21 

JKAXtI)=J Zl 

60 70 5C 21 

25 XPIK=XON(JJ 21 

JMIN(I)rj Zl 

30 CONTINUE Zl 

NP=KE-»I ■ Zl 

NC=NE+NSDB0Y(I+1) 21 

WRITE (6,BC)XHIN,XHAX,JMINn) tJHAX(I) 21 

35 CONTINUE 21 

40 00-65 J=NBP1,JJ 21 

TA-l Zl 

YAR(]A)rc. 21 

IF( NSDYl .FO,0)GOTOSC 21 

CALL SINTP (XON,YON,NPDYltXON tU),YAR(IA)) Zl 

IF (NNSO.EO.C) 60 TO SC 21 

JEND=NB0DY2 21 

DO 45 1 = 1 ,NNSO 21 

JMI=JPIN(11 21 

JMA=JHAX(1I 21 

jend=nsdbdy ri )+ jend 21 

IF (XON( J).GT>XON1JHA).OR,XOV (J).LT.XON( JM1> ) GO TO 45 21 

TA=IA*1 21 

call SINTP tXON IJHA ),YONIJMAI , JHl-JHA + l rXONl >),YAP(IA) ) 21 

1A=IA+1 21 

CALL SINTP tXONIJHIl.YONlJMl) ,JEND-JMI»1,X0N tJl»YARIIA ) ) 21 

45 CONTINUE - 21 

50 IA=IA*1 21 


cccc 

EOIE 

CC20 

CD3C 

CC4C 

COSO 

C065 

CC73 

CC8C 

ED90 

OlOD 

CllD 

C120 

01 3C 

C140 

DISC 

016C 

C170 

C18C 

C19C 

C2DD 

CZID 

C225 

G23D 

C24C 

C25C 

C26C 

C270 

C2BC 

C252 

C3C0 

C31C 

C32D 

C330 

0340 

C350 

E36D 

C37C 

C38C 

C39C 

C4CP 

C41C 

C420 

C43S 

C440 

C444 

C446 

C4S0 

C46D 

C47C 

C4PC 

C49D 

C5C0 

C510 

CS2C 

C530 

C54S 

C550 

C5 bC 

CS70 

ESfO 
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r AR (lAlryONfJl 

IS=D 

AKEA=C.C 

DO 55 1=1, lA, 2 

IS=IS«1 

APEA£flS)=CyARII*ll *+2-VARC1) **2>*PI 
Af>EA=.AREA+AR£AS CISJ 
55 CONTINUE 

APE aD=AReA*YARH|**2*pi 

»»/SORTCl.*YAR( l,/Y0A(j») 
IFICAPPAI JJ .‘CT.90DOO. )ENSUBK=99999, 

IF (NNSD.EO.GI GO TO 6C 
WRITE (6,8SHAREAS(I) ,l=i,is> 

prl I L 16»95 I 

IF tXONIJJ .GT.EXX^EXEP+XNIN >1 GO TO 65 

JPLA=JPLA^1 

XXAlJPLA)=XON(J» 

ANULUSIJPLA)=AREA 

di$c(jpla)=aread 

65 CONTINUE 

CU tM( IF AREA PLOT IS NOT rEOUIRED, BO TO 7C 
IF (IPLOTA.LE.Q) BO TO 70 
CALL CSCALE IDISC.YY ,JPLA , 1 , 10 ,F XK7N iOEE X > 

call CSCALE fANuiLUS,YY,JPLA,l, id, EXNIM,DEEX> ' 

DISC f JPLA + 1 JrEXKIN 
DISCIJPLA* 2I=DEEX 
CALL PLOTJXX.O. ,-3 J 

, ^*^'-,'’|-°*^^*X*»^’f»E^’fEP.DlSCfJPLA-»2) ,XNIN,rIS C(JPL Af^l 

i " t 1 

CC(f{(( PLOT THE DISC AREA VS. X 

r* » f f .X*<IN,rXEP,DTSC 

CMfCM PLOT THE ANNULUS AREA VS. X 

^C ALL LINE {XXA.ANULUS, JPLA,I ,1 ,3,XMIN,EXEP,0I 
73 RFTURE 


21 

C 593 

ICC 

21 

C 6 D 0 

)13 

21 

C 610 

) 2 C 

21 

C 62 D 

33 D 

21 

C 63 G 

)A 0 

21 

C 6 Ai? 

150 

21 

C 65 D 

160 

21 

C660 

17 ? 

21 

C 6 7 C 

I 8 C 

21 

C68G 

I9C 

21 

C69C 

□c 

21 

C 7 CC 

10 

21 

C 713 

20 

21 

C 7 Z 0 

30 

21 

E 73 C! 

90 

21 

C 7 RD 


21 

C 750 

3 C 

21 

C 76 C 


21 • 

C 77 C 


21 

C 78 C 

jC 

21 

C 79 : 

•0 

21 

cecD 

1 C 

21 

ceio 

»c 

21 

■:s 2 c 

:g 

71 

CS 30 

0 

21 

can j 

;p 

21 

C 85 D. 

;c 

21 

ceeo' 

c 


21 

21 


75 FORMAT flHl//9X,lHI,lRX,3HX0N.18X,3HY0N,16X, 
19PDISC AREA,1C‘X,6HEWSUEK1 NriPX, 

80 format tlH3,SX,7HXMIN = , 1 PCI R . 5, 5X , 7HxHA X = 
1 .16 ,5X,7HJHAX = ,16) 

PS FORMAT C7RX,1PE19.R ) 

9D FORMAT < BX, 13 ,1 P6E1 9. A ) 

95 FORMAT tlHO) 

Ef'D 


IJPLA «1 ) .DISC C JPLA+2) )2l 

21 

SCIJPLA+l j, DISC (JPLA+ 221 

21 
21 
21 - 

<lHY0NH,12X,<lHAREA,lAX,2i 

21 

tlPClA.S,5X,7HJHIN = 21 

21 

ZI 

21 

21 

21 


csec 

C89D 
C9CC 
C910 
C92G 
CP 3 C 
C 9 i*C 
C95C , 
C963 0 
C97C ; 
C98C ' 
C99C : 
ICCD 3 
ICIC 1 
IC 2 D ) 
icsn I 
t 
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of page is 
POOR QUAUTY 


St'BROtITINE ORAWIKR.KK } 22 

SUBPOUTINE ADDED TO DRAW PICTURE OF IHLET VIA CALCOMP PLOTTER. 22 

CUC((J CALLED OMCE FOR EACH SEGMENT Z2 

C ' 22 

DIMENSION XI2DO) fYlZCCJ 22 

COMMON /SS/ NEDYl ,NBODY2 ,TYPBDY,NBDYS 22 

COMMON /FOR5SS/IO,DELS,XBK (20 J ,YBK 12 0> ,XONI 5 CC) , Y CN ( 5301» OYDXOf SC C22 • 
1 I ,ALPPA (SOD JtCAPPA (SCO) ,SON(5 0ai,PI018C 22 

COMMON/ LOT/XKIN,YHTN,ORDtEXEP,XX,YY,LPNCHO.IPLOTA,HM 22 

COMHON/TOL/PAGS(15) ,BAGX(15», 2 AP( 1 5 ) ,N2 AP ( 15 ) 22 

KL-KR*1 22 

II=C 22 

DO 20 1=1, KL 2? 

N=KK*I-1 

IF (II.GE.2CD.0R.N.5T.500) 60 TO 30 22 


C((r<tt TEST EACH (X,Y) PT, EXCLUDE THOSE BEYOND (XX*EXEP+XMIN) INCHE 
YMAN=YY*ORD-»YMIN 

IF (LPNCH0.E0.2 J Y0N(N I “YHAN- 1 YON(N)-YHAK) ' 

IF f XCNIN)-XX*CXEP-XHIN) I0,1C,2C 
10 IF (YONCM -VYAORD-YHIN) 15, 15, 2C 
15 11=11+1 

X (IT »=XON(N) 

Yai»=YON<NI 

IF tll.NE. l.OR.TYPBDY.EO.l. J GO TO 20 
C(((((( STORE CURVATURE VALUES OF SEGMENT'S FIRST FT. FOP USE WITH 
C SUBSECUENT CURVATURE PLOTS, 

HM=MH+1 

BAGX(KH)rXON(NJ 

BAGS(mM)=SONIN) 

2AP(HMJ=CAPPA(N) 

N7AP(MH)=N 
2C CONTINUE 

c<<<((( DRAW A segment marker At FIRST PT. OF SEGMENT 

^IF tXCN(KK ) ,6T. (XX + EXEP+XminI .OR. YON (KK J ,GT. IYY*0R0*YHIN) ) GO TO 

XSYM= (Xtl)-XHlN)/EXEP 

YSVM:(y( 11-yhini/ord 
CALL SVHP.0LrXSYH,YSYH,.2,l,0.,-IJ 
25 CALL LINE(X,v,II,i ,1, 3,XHrN,EXEP,YMIN,OP0> 

RETURN 

3D WRITE (6,35HI,N 

35 FORMATUHD,* SCIRCLE ERROR EXIT - DATA POJMT' EXCEED 2DD ON A SE6 
lOP EXCEED 500 ON TOTAL INLET - ' /2I6I 
STOP 
END 


SZ2 


72 

22 

22 

22 

22 

72 

22 

22 

22 

22 

22 

22 

22 

22 

22 

222 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 


cccc 

CDIO 

CD20 

CC30 

CORO 

EC5G 

CC6D 

CC7? 

CC8C 

C09C 

Qioc; 

CllD 

C12D 

C13D 

GIRO 


CISC 


ClfcO 

CI70 

CISC 

CISC 

02CO 

C21D 

C220 

C23C 

C2R0 

•C2S0 

C26D 

C27C 

C28" 

C2RC 

C3CD 

C31C 

C32Q 

C33C 

C3RD 

C350 

C3er 

C37C 

C380 

C39C 

c«cc 

CRlu 

CR2C 
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Cf-HPOM/TITL/ TTI.TLt9.ftl AXIS FRAMES FOP ALL PLOTS 1 


ct-hmom/titl/ ttitl (9,6, ' 

UP =n.-YY- 2 .*SN 0 SZ 

Hirxx 

H?=YY 

CALL PL07l4.,-n.,-3, 

CALL PL07|3.,UP,-3, 

DC 25 Iri.Kl 
X=1 

P=FXEP*X ♦OrSETA 
CALL rLCT,X,0.,2> 

CALL PLOTtX, .2,2, 

H=I/2 

F=FL0ATtT,-FlOA7tH|-x/2. 

ir ,5, 12, ID, 25 
20 IF (K5, 15,15,20 

2- SK r l.I33*SK0S7 


23 


CCCC 

CCIC 

CC2D 

CC3C 

CC9C 

CC52 

CC6F 

C070 

CQEO 

CC9D 

CICG 

EllG 

C12C 

ci2n 

C190 

CISC 

C160 

C17D 

C180 

CIVC 

C2C0 

C210 

C22C 



ORIGINAL PAGE IS 

6f poo'r qualm 


CALL NUKBE’RfX-SNOSZ-SWOS2,-SN-SNCS2-. ie,SN,lC.tO* »-l > 23 

CALL NUH?£Rf999.0,-SN0S2 - . ID , SNOSZ ,P , 0 . »NK j 23 

2'i CALL PL0T(X»O.,3l ' 23 

B = (XX-5A .*SLtTRS) /2. 23 

CALL SVHB0L«B,-SM0S2-SLFTPS-. 1 5- . 6 , SL E7RS ,7T 1TL< 1 ,K J . ,59 > 23 

CALL PLQT(0.,C.,3) - 23 

DO <!5 J=1,H2 23 

23 

0=ORD+Y+OFSE7 • 23 

CALL PLOT|D.,Y,2> 23 

CALL PL0T(,2,Y,2I 23 

N=J/Z 23 

PrFL0A7tJ)-FL0ATtR» -Y/2 . 23 

ir fS) SC.Sf'.AS 23 

TO ir CKfcJ 35,3S,«(0 23 

35 CALL NUKBERt-A .*SN0S2 - . 1 5 , Y , SNOS2 ,0 , T. , M H 23 

60 TO M5 23 

90 SN = 1.333*SN0S2 23 

CALL NUH8ERI-.15 -Sfj-SN-SH ,Y-SKOSZ , SN , 10- ,C . , - 1) 23 

CALL KU('SCRI999,3,Y-»SV-SNOSZ,SNOS-2,0,C.,NL1 23 

95 CALL PL0T(0.,y,3» Z3 

C = (YY-59.»SLE7RS)/2, 23 

CALL SYMfcOLI-SNOSZ-SNOSZ-SNOS2*.15-.6,C,SLtTRS,7TrTLa,L),9D. ,59 1 23 
CALL PLOT (C.,YY,3) 23' 

CALL rL0T<XX,YY,2I 23 

CALL FLOT(XX,C. ,2) > 23 

DC 52 J=1,H2,2 23 


V=J 

IF (Y.EO.YYJ CO TO 55 
CALL PL0T(XX,¥,3I 
CALL PL0Tt0.,y,2» 

IF MY*I.1,E0.YY> GO TO 55 
CALL PL0T(D.,Y-»1.,3) 

50 CALL rL0T(XX,Y«l.,2} 

55 CCKTINUE 

DC to J31,P1,2 
X-J 

IF lX.tO.XXl GO TO 65 
CALL PL0T(XX-X,YY,31 
CALL PL0TJXX-X,C.,2) 

IF t «XX-X-1. ) .LQ.O. ) GO 
CALL PL07(XX-X-1.,0.,3) 

6C CALL PLOT CXX-X-1., YY,2) 

65 BETURS 
EAD 


23 

73 

23 

23 

Z3 

73 

23 

23 

73 

73 

23 

23 

23 

23 

23 

23 

23 

23 


CZ3C 

D290 

C250 

C26C 

CZ7D 

C2S0 

C29D 

C3C0 

C3IC 

C32G 

C333 

D39D 

C35C 

C360 

C37C 

C3BC 

C39C 

C9CC 

C91C 

C92C 

C43D 

C9>i0 

C4 5C 

C*46C 

C47C 

C48D 

CM9D 

C5C0 

C51C 

C520 

C530 

E54C 

C55C 

C560 

E57C 

CSfiO 

C59C 

E6CC 

061: 

C62C 

CC3C 

C640 

£550 

C66C 

C67C 


TO 65 
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SUEKOUTI^F SINTP" » 

CfItCCC rNL«f?GEr FROM the' ORIGINAL (20CI 
t*lPtNSION AU3> 

DIMENSION XI25D1, Y I253J , 2<2E0», WI25D) 

DATA EOOFF/6HENOOFF/ 

,DC IC iri-jN 
J=7CII 
12 YCIJrum 

^ CALI SORTXY IX,Y,N1 

or IS 1 = 1 , N 

K=J 

IF CXl.GT.XtlJ) GO TO 15 

IF CXl.EO.XflU BO TO 2C 

IF tXl.L7.Xein GO TO 2E 

15 CONTINUE . 

22 YirYtKl 
GO TO 30 

IF tK.EO.ll GO TO 35 
IF tK.EO.N) K=N-1 

N3=tXl-XtKH*rXl-Xtlf+lM'/|X(K-l)-X(Kn/(XtK-l)-Xn(*l) I 
v2=fxi-xeK-i).)*<xi-xeK«in/ex{Ki-xnf-in/ix< k)-xik*i> > 
W7=eXl-XtK-I ) J*tXl-XCKM/IXIK + l>-X<K-lU2lXf K«ll-X,tKH 

YlrY ett -1 >*H]+YIK>*lf2tY tK*l)*B3 

30 BFTURN 
35 Yl=C-.“ 

RFIURO 
EMPY ECHO 

CALI EPTRAN lt,»3ASG ,T 2S. . ») 

WRITE It, SO) 

«tr forkati.ihi,23x, » input fue du“p»/j 
« l5 RCAD f5,5C,END=63J a 
52 FCftMATCl3A61 
WRITE e&,S5)A 
WFITE t2f.,5D1A 
PS FCRPATtlH ,13A£;» 

GO TO NS 

WFIIE t25,5?lF0DFF 
REVI'-C 25 
Pf TURU 
END 


ZN 

C-CGE 

2N, 

EGIO 

Z*( 

C020 

■ 2N 

C‘C3C 

2N 

CC4C 

2R 

C05C 

2N, 

CC6D 

7N 

CC7D 

ZN. 

C08C 

ZN 

CD90. 

2N-- 

0100- 

24 

OlID 

24 

cizo" 

24 

0130 

24 

C140 

24 

C15C 

24 

C160 

24 

C17D 

24 

QIBC 

24 

C19C 

ZM 

C2CC 

2,4 

C210 

24 

C22C 

24 

C23G 

24 

C24D 

24 

C2EC t 

24 

C26C 

24 

‘C27C 

24 

C26C 

24 

C290 

24 

03 GO 

24 

C31D 

24 

C32D 

24 

C33C 

24 

C34C; 

24 

C35C 

24 

C36C 

24 

C37D 

24 

C3SC 

24 

E390 

74 

C4S0 
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StBBOUTINE SOPT)tTfX,y,NPTS> 
DIMENSION XllCOI,vncfi) 
N=NPTS 
NN=^N-1 
2C DP 5S KT=:,NN 
X>*IN = X(KT J 
JAD^KT 
JKL=KT*1 

25 DO <15 JK-JKl.N 

•?2 IF CX«IN-X(JKn <I5,E)5,35 

35 XrlN=X(JK) 

<(0 JAD=JM 
<15 CONTINUE 
50 yMIN=YtJAD> 

XtJAOlrX CKT) 

VtJAD)=r (KT) 

XiKT)=XHlN 
YCKT )=YMIN 
55 CONTINUE 
PETUPN 
END 




25 

CCC? 

25 

:dio 

25 

CD2G 

25 

ccsn 

25 

CCN5 

75 

CD5G 

75 

■ CD6C 

25 

E-C7C 

25 

CC60 

25 

EDSiO 

25 

Cl CO 

25 

Clio 

25 

C120 

25 

C13C 

25 

CINC 

75 

C15G 

25 

C16D 

Z5 

C17D 

25 

ciec 

25 

C19C 

25 

C2CC 



no 


PROGRAM 23Y 


C WEBUAK PPOGRAH - TWO DTHENSIONAL tlUL TItLENENT AIRFOILS EXECCCl 

C. . EXECCCZ 


C 

c 

c 


c 

c 

c 


c 


c 

c 


c 

c 

c 

c 

c 


THIS IS THE EXECUTIVE ROUTINE FOR THE NEW NUFHA AN 


COMMON /BFLAE/ IDBtlOI, INLtlD), IFUIDJ., NL 1101 , LIFTtlO, 

1 ^ IBMF1I0), ISAVmOl, ISAV?UCJ, lSAV31irj, 

2 BTITLEtlO, 71, IBT, IBST, IBTOT, NElTOT, 

3 ITRPflDlt IHHE110J, CHORDPUDJ* iBCdO, LIFTOT 

R .IPRBUCl, IFSTIlOl, ISECIlrl* FTITLEIIS), IP-Vftllt 


EXECCD3 
EXECCC«I 
EXECCOE 
EXECECO 
EXECEC7 
EXECCCf 
EXECCC9 
1 tXECClC 
fXECCll 
EXECCl? 





IXECC13 

CCMKON 

/COMBOD/CCL, INCLT, CLT, ALPHA, SUMDS 11D 

), 7LUtlO,121,IND 

EXECC19 

1 

, ALPhAO, CNOIIOJ, SMDSWrdbl, hio 

1 1 n 

EXECC15 




EXECC16 

COMKON 

/FILEID/ IFILEI* 1F1LE7, IFILEJ, iFlLEf, 

I FILES, 

FXECC17 

1 

1FILE6, IFILE7, IFILEB, IFILE9, 

IFILiC* 

EXECC16 

2 

XFILll, IFIL12, IFIL12, JFILlf), 

IFILIS 

EXECC19 

3 

tlFILU, IFIL17, 1F1L18, IFIL19,' 

IFIL2C 

EXECC2C 

CCKHON/PICTUR/VPER1m,XX,Xm1M, FxEP,TV,THIN,ORO 



C CM MON 

/MPATA/ ISOL.IOFF.NONU ,NBNU,IPRlNT,MOfir,l 

M 

EXECC21 

CPHMON/ROTAT/NROT, R0TRAD110J 


EXECC22 




CXECC22 

SET UP THE 

various STORAGE UNjTS REOUIRED PY THE PROGRAM 

EXECC29 

CALL FILES 


EXECC25 

ID CONTINUE 


EXECC2E 

REWIND 

IFILEI 


EXECC27 

REWIND 

IFILE2 


CXECC2E 

REWIND 

IFILE3 


EXECC2S 

HFltlNP 

1F1LE4 


EXECC3E 

REWIND 

IFILE 8 


EXECC31 

P'^WTNn 

IFILE9 


EXECC31 

REL ino 

IFILlO 


EXECC3I 

REWIND 

IFiLll 


EXECC31 

PCWINP 

IFIL12 


EXECC3f 

REWIND 

IFIL13 


EXtCC3< 

REWIND 

1FIL19 


EXECC3I 

REW INO 

1FILI5 


EXECC31 

PEL INC 

IFTL 16 


EXECC31 

REWIND 

IFIL17 


EXECOAt 

CALL TSETV 


EXECCl'; 




EXECC91 




EXECC9‘ 

CALL HAIKl 


FXECCRi 




EXECC9 ■ 




EXECC91 

OBTAIN Sl&HA SOLUTIONS 


EXECC9’ 

I SIZE = 

11913 


EXECC91 

CALL SOLVE 1NFLT0T, M, ISIZE, ISOU 


FXECC9* 


c 


c 

c 


CALL TJKTVITI 
UPI.TFI6.7E1 T 
70 FpLMAT (IHO, 

1 


•SOLVE COMPLETE* 
•CALL COMBO, T - 


READ FLOW TITLE CONTROL CARD* 
•*. F9.3, •SECOKCS.M 


EXECC5 

EXECC5 

EXECC5. 

EXECC5 

EXECCS' 

EXECC5' 

EXECC5. 

EXECC5 

EXCCCE 


CALL MAIN3 



Hi 


ir «KORF .EO. GO TO 13 

IF CVPrRIK’.GT.D.AND.lOFF .EO. 1>CALL PL0TIXX*«t.,0,,-3)- 

IFtVPERlN.GT.O.AND.IOFF.EQ .lICALt PL071D 

STOP 

EKD 


POOR QUAZjTy 


EXECC59 

EXECC6C 


EXECCtl 

EXECC62 



■SUF ROUTINE TIKEVm 
T=2. 

RTTUPN 

END 
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OEIGINALPAGES 

OF POOR QUALiax 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


c 

c 


SU8P0UTINE ASSEKB 

THIS ROUTINE READS IN NORMAL AND T ANGEN TI AL -ONS ET 'FLOWS 

IN ROW order, and assembles them in column order and writes 

THEM BACK OUT 

NORMAL ONSET FLOWS ON UNIT IFll 


ASEMCCl 

ASEHCC2 

ASEMCC3 

ASEHECK 

ASEHCOB 

ASEMCCL 

ASEHCC7 

ASEMCDB 


TANGENTIAL ONSET FLOWS ON UNIT IFl? 

THE normal onset FLOWS ARE ALSO WRITTEN ON IFC*! «RHS TAPE) 
FOR USE IN MATRIX SOLUTION. 


ALSO, NON-UNIFORM ONSET FLOWS ARE READ IN AND WRITTEN ON UNITS. 

dimension VN(S00,X2), VNUFCSDO), VTUFtSOC), I1C5), lEtS) 
DIMENSION XOf50D),YO(5O0) ,DSI 5001 ,SA (SCO) ,CA »5C0 ) 

EOUIVALENCE IVNtl,l), VNUFtl)), <VNI1,2), VTUrn)* 


COMMON /COHBOD/CCL, INCH, CLT, 
1 , ALPHAO , CNU«13 ) , 


ALPHA, SURDS (ID), TLO UO , 12 ) , INO 
SMDSWF(IO), MIOUC) 


COMMON /BFLAG/ IDP ( 

1 IBMF( 

2 ETITLE 

3 ITRBt 

R ,IPRB 

CCKMON /FILEID/ IF 
J 

2 IF 

3 ,IF1 

COHMON/ROTAT/NROT, 
COMMO*-’ /MDATA/ ISOL 
COHMON/ELDATA/ XO, 


1C7, INLflO), iFLtlC), NL 
ID), ISAVl (10), ISAV2 (ID) 
(1C, 7), 1ST, IPST, IETO 

1C), INHB(ID), CHORDS (10) 
(10), IFST(IO), ISEC(IC), 
Dl, IF02, 1F03, 1FC1(, IFO 
1F06. 1FD7, IFC8. IF29, 
11, IF12, IF13, IFIR, IFl 
A, IF17, IF18, 1F19, IF20 
ROTRADI 10) 

,IOEF,NONU jNBNU, iprint ,mo 
YO, OS, SA, CA, CUPV(5C0) 


(10) , LIFT 
, ISAV3C1C 
I, NELTOT, 
, IBD (10), 
FTITLEdS 
5, 

IFID,' 


RE,H 

• DL(SCO) 


CIO), 

)l 

LIFTOT 
), iPWRdO) 


NOPMAL ONSET FLOWS 
REWIND IFll 
DO 12 I - 1, NELTOT 
12 REAOdFll) (VN(I,K>, K=i,H ) 


ASEKSC9 

asehcid 

ASEMCll 

ASEHC12 

ASEMC13 

ASEHOIM 

ASEHClS 

ASEHCie 

ASEME17 

ASEHClS 

ASEKC19 

ASEHC2C 

ASEHC21 

ASEMC22 

ASEKC23 

ASEMDZN 

ASEMC2S 

ASEMC26 

A5EMC27 

A5EMC2B 

■ASEMC29 

ASEHD3C 

ASEMC31 

ASEMC32 

ASEHC33 

ASEM.C3tl 

ASEMC3S 

ASEMCZfc 

ASEHC37 

ASEMC38 

ASEHC39 

ASEMC9C 

ASEMCAl 

ASEMC42 

A5E“C*)3 

ASEMC'AM 



^ n or) noon 


114 


c 

C 


REtThn IFII 

REKINn IFC4 
HTOT r f« 

If (NONU .GT. 01 HTOT r HTOT * HONU 
UPIT£aF!>m HTOT 
I3C» 2C K - 1-,H 

C*LL SAVECiFil. 1, 1, NELTOT, 

CALL SAVELIFC‘4, 1, 1, NELTOT, VNtI,K», 


VNA} 
It V»A} 


TAKGEHTlAL ONSET FLOWS 
REVINP 1F12 
DO 3E I = i,m:ltot 
30 REArUFlZ) (VMII,K>, K- 1 »H I 
REUINP IF12 
DO RC K - 1 ,H 

10 CALL SAVEfIFl?, J, l, MELTOT, VNU,K>, T, VNAJ 


CHECK IF NOK-UNIFOrH ONSET FLOWS INPUT 
3'JO IF INONU .LE. 0) RETURN 

DO 56S L r l.NONO 
H = H + 1 

PRESET ALL VELOCITIES To ZERO 
00 35C I - l.NELTOT 
VMIlFtI) = 5.D 
35t vfUFtn r Oic 

call JAVEdFll, 1, 1, nELTOT, VNUF, 1, VNI 


c 

c 

c 


c 


PRESFT TLU ARRAYS TO ZERO 
. DC 3E5 I r 1,TBT0T 
3S5 TLUUtHT = C.S 


'"^*ITYP CONSTANTS FOR NON-UNIFOrH FLOWS 

360 REAP(5,urc> TCNUdJ, 1=1, 61, ITYPE 

IF flTYPE .NE. ITVP) CALL TVPE<ITYP, ITYPE) 


C 


c 

c 


i,NeNit 


CARD FOR NON-UNIFOPM FLOW 


DO *(6C NP 
LP = .-' 

^CAo Body control 

ITYP r 11 

IBOD, IN, IT,NN, (lidl.IEd), i 
FORPAT (11,1X311, 10(2X131, FIO.S, 5X12) 

IF (ITYPE ,ne-. ITYP) CALL TYPECITYP, ITVPEl 


370 


lifting BODY COUNTER 

PC 38. IP = ItIPTOT 
IF (LTFT(IE) .NE. 0) L'B = L8 ♦ 1 
IIB = IP 

IF dPOD .EO. lOBt'lB)) GO TO RPO 
3S0 CONTINUE 

, WPITE(6,39D) IBOD 

3od FORPATdHD, ’NON-UNIFORM FLOW INPUT, 


IfSJ.CB. 


ASEHCcj 

ASEH0«I6 

ASEKER7 

ASEHC48 

AsE"GH9 

ASEHC5C 

ASEMC51 

A$EHl52 

ASEHC53 

ASEHCSS 

ASEWC55 

ASEHCSe 

ASEKC57 

ASEMCSa 

ASEKDSg 

ASEHC6C 

ASEHCtI 

ASEMC62 

ASEHC63 

asehcso 

ASEHC65 
ASEHC66 
ASEHC67 
ASEHC6S 
ASEKC69 
ASEHC7D 
ASEHC71 
ASEMC72 
ASEHC73 
ASEHC7R 
ASEHC75 
ASE«E76 
ASEHC77 
ASEHC7B 
ASEMC75 
ASE«ceo 
ASEHC81 ' 
ASEKE82 
ASEHS83 
ASEMCSA 
ASE‘'C85 
ASEVC86 
ASEHC87 
ASEHC88 
ASEMCSR 
ITYPE ASEMC9C 
ASEHC91 
aseh:92 

ASEME93 

ASEHC9A 

ASEMC95 

ASEH;96 

AS£K:97 

ASC.HC9S 

ASEHC99 

ASEMICC 

AStKlCl 


PODY with id 


t T 1 
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1 


STOP 


• DOe? NOT EXIST. RUN TERMINATEC. M 


c 

c 


*fC3 HO = HIO CII^I - 1 

IF (NPOT .BT. 01 GO TO 455 

00 45C LL= 1,NN 
10 = HO ♦ 31««-L) 

IF - HO ♦ lEtLLl 

IF CIN .EO. C) GO TO 42G 
I7E&0 IN NORMAL VELOCITIES 
ITYP =12 
K2 =10-1 

41G HI = H2 < 1 

M 2 * K1 ♦ S* 

RFADI=;,44D1 IVMUFIU, 1 = 

IF (ITYPF .NE. I-TYP) call TVPEelTYP, ITYPE) 
IF CM2 .LT. IF) GO TO 410 
420 IF I3T .EO. C) GO TO 450 

READ IN TANGENTIAL VELOCITIES 
ITYP = 13 
M2 = JO - I 
4 32 Ml r M2 + 1 

H2 - ^1 * S _ 

PEAD(Ei*lijC) IVTUFIII* I “ ITYTt 

440 FPRHATI 6F1G.0. 10X12) ttvPF» 

IF IITyPE -NE. ITYPJ CALL TYPECTTYP, ITYPE) 

IF (H2 .LT. IF) GO TO 433 
45C CONTINUE 
CO 10 457 


SPECIAL P07AT1N6 FLOW - INPUT GENERATED 
4 55 CONTINUE 

COUNTERS FOR MATRIX STORAGE 
1 0 = “O + 1 

IF = HO + NLtllPI 

CQUHTEP FOR BODY GEOMETRY 
JI = INLtllP) - 1 
POTATION RADIUS 

ROTrAPITIB) = CB 
Cr = 1.0/CB 
DC 45F I = 10, IF 

VNUFCT) = — YO fJ T ) • S A( JI ) — XO I JT) *C A I JI ) 

VIUMI) = YOCJI)*CA( JI) - XO (J1)+SAIJI) 

456 CONTDAIE 

HniTFte.RCO) NONU,NROT,NBNU,L ,NB,IO,IF . ,3 

9PC FORHATUHC, 7HN0NU = ,33,SX7HNR0T - ^ ^ 

1 4HL = ,I3,5X5HNP = ,13, 5X5HI0 - ,13,5X5H1C , 

457 CCNTIKUE 

ALL rON-0 VELOCITIES FOR BODY ID=IBOD READ IN. 


SCALF VELOCITIES 


ASE«1C2 
ASEM1D3 
ASEM1D4 
ASEM1C5 
ASEM 106 
ASEMIC? 
ASEK1D8 
ASLM1D9 

ASEH no 

ASEMlIl 

ASEH112 

ASEh 113 

ASCK114 

ASEHllS 

A5EM116- 

ASEH117 

ASEHllS 

ASE*1119 

ASEH120 

ASEM121 

ASEM122 

ASEM123 

ASEM124 

ASEH12S 

ASEM12G 

ASEM127 

ASEM128 

ASEH129 

ASEM13C 

ASEM131 

ASEM132 

ASEM133 

ASEH134 

ASEH135 

AS£“I3S 

ASEH 137 

ASEH138 

ASEN 139 

ASEH14C 

ASEH141 

ASEM142 

ASEM143 

ASEH144 

ASEH145 

A5EH146 

ASEH147 

ASCH148 

ASEH149 

ASEM15C 

ASEH151 

ASEH152 

ASEH153 

ASEM154 

ASEH155 

ASEM156 

ASEM157 

ASEH15B 
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IF (AbSfCB)' ,LT."i»E-6» eo TO %80 
DO <170 I = 10, IF 
VNiirciJ = vnufId^cb' ‘ ' 

*l7D VTUFCIJ = VTUFtll>)iCB 

480 COMTINUr • 

C. . . • 

C RESET TUI IF LTFTIN5 BODY' ' ■“ 

IF iLlFTtllB) IeQ. D1 60 TO 460 

1 0 :: HO + 1 

IF = HO + NLITIB} 

TLUCLB.Hl = VTUFtlOJ * VTUFtIFJ 
460 continue 

C ALL velocities FOR A GIVEN NON-U FLOW READ IN, 
CALL SAVECIFD4, I, 1, NELTOT, VNUF, 1, WN) 
call SAVEIIFIZ, I, 1, NELTOT, VTUF, I, VNI 


4 90 jzr' = c 

495 WRITE,t6,5C0) 

SCO FORHATIlHl) 

URITE(6,51D> L, H 

Slo FORHATtlHO, 15X, ’NON-UNIFORM FLOW NUMBER ’, 12, *i K = 
1 ns, ’I’, T27,’ VN*, Tl|4,’ VT’i 

’ T75,’I’, T87,’ VN’,T134,* VT?) 

J1 = J2 + 1 
JMX = J1 *‘49 
N2 T (NELTOT ♦ 1 ♦ J2J/2 
IF (JMX .GT. N2> JMX" = N2 
J2 - JMX 

DC 530 J = J1,JHX 
J2 = J2 + 1 

IF fJ 2 .gT. NELTOT) GO To 54 C 

WRlTEf6,S2Dl ' J, VlilUr tJI,VTUF(JI, J2, VNUF ( J2 ), VTUF (J2 ) 
FORMATdH , 11X13, 2I5XF12,6>, 23xl3, 2 « 5 XFl 2'.6 ) ) ' ' 

CCNTINUF ' ■ 

IF (J2 .L7. NELTOT) GO TO 495 
GO TO 550 

WRITE f6,S2DI J, VNUFIJ), VTUF(J) 

CCNTI,HUE 


RETURN 

END 


S20 

530 


540 
5 50 
C 
C 

560 

C 

c 


13// 


ASEfi 159 
A5EM16D 
ASEH161 
ASEM1G2 
ASEM163 
ASEH164 
ASEH165 
ASEM166 
ASEM167 
ASEH168 
ASEH16.9 
ASEMl"7Q 
ASEM171 
ASEM172 
ASEH173 
ASEK174 
'ASEM175' 
ASEH276 
AS EM 177 
ASEM178 
ASEM179 
ASEMIBC 
ASEM181 
ASEK182 
ASEM183 
ASEH184 
ASEmI'85 
fSE 15186 
ASEHiBT' 
ASEH188 
A5EM1S9 
ASEHIOO 
ASEM191 
ASEM192 
ASEH193 
ASEM194 
ASEM19S 
ASEM196 
ASEH197 
ASEM198 
ASEM199 
ASEM2CC 
ASEM2C1 
ASEM2Q2 
ASEH203 
ASEM2C4 
ASEM205 
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SUBROUTINC CETTtlU, IT,,N1, Alt R2t A2» 
C 

DIMCNSIOM AlINllt A2(N?) 

C 

GC TO aGt20«3Ct'»0> f IT 

Read ai 

ID PEAD<TUJ Al 
PETURN 


read ni and 

Al 


20 

RFADdUJ 

N1 . 

Al 


RETURN 



READ Al AND 

A2 


3C 

PFACtlU) 

Alt 

A2 


RETURN 


OUlGTNAt- 

05' POOR 


page 


READ IDU“ AND Al 
40 REACfTUl IDUH,- Al 
RETURN 
FKD 


6ETT CCl 
GETTCO? 
CETTCC3 
BETTCC4 
6ETTGD5 
6ETTCD6 
GETTCD7 
GETTCC8 
6ETTCD9 
6ETTC10 
GETTDll 
6ETTE12 
6ETTC13 
EFTTC14 
6ETTC15 
GETT016 
6ETTC17 
GETTDla 
6ETTC18 
GETTC2C 
GETT02I 
6E7TC22 
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FUHC710N ABFORH {XT, tl. OSI , SIMI, COSI* 

I XJt YJt DSJt. SINJ, CQS^tt BO 


THIS ROUTINE actually CALCULATES THE INDUCED WDL0C17Y 
ARRAY ELEMENTS A AND B. 


Data ei,e2/169.c,ii.iii/.eo,e y/o.odoi,c.di/ 


DV = XT - XJ 

DY r VI, - YJ 

ROSO T DX*’»2 ♦ PY**3 

DSJSO - DSJ«*2 

IF tROSO .LT. DSJSO^EI) GO TO 10 

USE FAR FIELD FORMULAS 
VX = 2.<'DSJ/R0S0 
VV = VX*DY- 
VX = VX#DX 

AO = -VX*S1N1 ♦ VY+COSI 
AFFORM = AO 

60-- VX>?C0S1 + VY+SINl 
RETURN 

USE NEAR FIELD FORMULAS 
1C X = DXvCOSJ + DY+SINJ 
Y = DY^COSJ - DX+SINJ 
S = SINIi^COSJ - C0SI*S1NJ 
C :: CPS‘l*COSJ + SINT’FSINJ 

IF tR-lSO .GT, DSJSQ*E21 GO TO 2C 


ABFOCtI 
ABF0CG2 
ABF0C03 
ABFOCCA) 
ABF0D05 
AGF0a06 
ABF 0 COT 
ABF0LD8 
ABFOC09 
ABFODIC 
ABFOCll 
ABF0C12 
ABF0D13 
ABFODIA 
ABF 00 IS 
ABF0D16 
ABF0G17 
ABFOCie 
ABF0C19 
ABF0C2C 
ASF0C2I 
ABF0C22 
A0FOC23 
ABF0C2S 
ABF0G25 
ABF0C26 
ABF0G27 
ABFO C2B 
. ABF0B29 
ABF 0C3C 
ABF0C3'l 
ABF0032 
ABFOC33 
ABF003«I 
ABF0C35 
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C USE EXACT FORMULAS 
XB = X/DSJ 
YB = Y/DSJ 
PO - XB**2 ♦ YB**2 
PP = XB»«2 - YB**2 
R1 = PO ♦ XB ♦ 0»25 
R? r RO - XP -» 0.25 
C 

VX = •»ALOGf <ROSO+DS J*X*a.25*DS JSO) / IROSO-DSJ*X*0«25*DSJSO ) 1 
Y = Y^DSJ 

X = ROSO - D.25*DSJSQ 

vr = 2 .o*atak2jy,x> 

c 

60 TO 33 


USE HULTIPOLE FORMULAS 
23 AE = X*DSJ/POSQ 
BE = Y=»DSJ/ROSO 
A SO - X*’»2/POSO 
ESO =nSJSO/ROSO 
VX = 2.Cl*AE*{l .0 + 
VY = 2.3*-BF*(1 .0 


(ASC - Q, 751*ES0/3. 0) 
(ASO - Oi 251*ESO/3.0» 


2L COWTIMUE 

A “FORM r -S»VX + C*VY 
F-0 = C*VX + S«VY 


RETURN 

EKB 


ABF0C36 

ABF0C37 

AEF0338 

AEF0039 

ABFOCBD 

ABFOE‘11 

ABF0C*I2 

ABFOCtS 

ARF0C4*I 

ABFOC45 

ABrOCMB 

ABFOC'lT 

ABFOC48 

AEfOC«(9 

ABFQD5D 

ABF0051 

ABFOC52 

ABFOG53 

ABF0G5V 

AEF0C5S 

ABF0C56 

ABF0057 

ABF0C58 

ABF0E59 

ABF0C6C 

ABF0C61 

ABF0C62 

ABF0C63 

ABF0C69 

ABF0C65 

ABF0C66 

ABF0C67 


ORrciisrAL pagp 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SIBFOUTINE HAFORM I H, HONU, NBNU, ISCL, IPRIKT) 


THIS routine forks AMO STORES HATRTCES A AtJD B 

ALSO CALCULATES AND STORES ALPHA AND CIRCULATORY ONSET VELOCITIES 

THIS IS FIRST ATTEMPT AND IS SIMPLE ONE-TIME PASS. 

CAPAl'lLilY To ONLY CHANGE SELECTED ARRAY ITEMS 
WILL BE ADDED LATER. 


RCAL^'M N 


DIMENSION AC5DD1* B(500)t XOtSOOJi YOCSSCJi 

1 OSeSOOJ, SA<5DQ), CAtSDOi, ELUI5CDI, 

2 N(12l, T^l^^ 

CCKMON /COMBOD/CCL, INCLT, CLT, ALPHA, SUMDSIID), TLuno.l2> »1ND 
1 , ALPHAOf CNUIIO)* 5HDSHFao>» HIOUCJ 

Cfl'.KOM /BFLAC/ TDBTIOI, TNLflDJ, TFLtlO>. NLAIDI, tlFTClOi 

1 IBHFflG), ISAVltlO). ISAV2<10>, ISAV3I1C1, 

2 BTITLEIID, 7>, IBT* IBSTt lETOT, KELTOT, 

3 ITRBIIG). INHBtlDI, CHORDBUO), IBDtlOlf LIFTOT 

M .IPPBllDJ, IFSTdOf, ISECClOlt FTITLEC15J, IPVRtlOJ 

CCHP.ON /FILEID/ IFDl, TF02, IF03, IFQ<I, IFOS, 

1 IF06, IFD7, IFO0, IF09, IFID, 

2 IFll, iFI2, IF13, IFIH, IFJS 

3 tlFlS, IF17, IF18, IF19, IFZO 
COKKOH/POTAT/NR'OT, ROTRAD 1 10) 

COHKOWELDATA/ XO, YO, DS, SA , CA , CUBWtSDCJ, OLtSEDT 
COPKON/GCO'FFS;r WF(50G) 


PEGIN NEW CASE. II fs ROW COUNT, JJ IS COLUMN COUNT. 
RtWINtI IFC9 
REWIND IFIO 
PFWINP IFll 
REWIND 1F12 

RFUINH IF13 

H = LIFTOT ♦ 2 
12 = : 

IT = 0 
LP = T 
IWT = C 
NROT r r 

INPUT VALUE OF NONU .GT. 6 IS OStO TO FLAG 


MAFOCCl 
MAF0CC2 
MAF0CC3 
HAFOCOA 
MAF0GQ5 
HAF0CD6 
MAFOC07 
MAFOC06 
MAF0CD9 
MAFOCIC 
MAFOCll 
MAF0D12 
MAFOCll 
MAFOOm 
MAFOCIS 
MAF0C16 
MAF0C17 
MAFOCIS 
HAF0019 
MAFDG20 
MAF0C21 
MAF0C22 
HAF0C23 
MAFOCZ'I 
MAF0D2S 
MAF0G26 
HAF0C27 
MAF0G2S 
MAF0G29 
MAF0C3G 
HAF0C31 
HAF0C32 
HAFOC33 
HAFOCZfl 
MA f'o C 3 5 
MAF0C36 
MAFOC37 
MAF0C38 
KAF0C39 
MAF0C9C 
MAF0C91 
HAFOC92 
MAFOORS 
MAFOORt) 
HAFOC^tS 
MAF0C«6 
MAF0Q«I7 
MAF0096 
MAF0C99 
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C ROTATING NON-UNIFORH FLOW 
IF INONU .LE. b) GO TO 5 
NRCT = I 
MONU = J 
5 CONTINUE 

no 21C IIB : l.TBTOT 

C CHECK IF BODY IlB IS STILL IN DATA SFT . 

IF (JPHF(IIP) ,LT. 0) eO'TO 210 

OF POOE QUALITY. 


ORIGINAL PAGE IS 


10 = TNL(IIP) 

IF = 10 + NUllB)- 1 
HIOtllB) =11+1 
DO 180 I = 10, IF 
JJ = r 
K - 2 

11 = II + 1 
IF IIPRINT .EO. 2) 

IWPITE te,12> II 

IZ rOKPATtlHl, 14, ’I = •,13/lHO, T4,*J», 715, 'AO*, T31,’B0*) 

DC I5C IB = l.ISTOT 
IF tlBHFdBl .LI. 0) 60 TO ISO 

COUNTER FOR ELEMENT 6F0METRY 

0 = INLCIBJ - 1 

C COUNTERS FOR A,E ARRAYS 
JI r JJ ♦ 1 
JF = JJ + NLCIBI 
C 

C JJ IS COUNTER FOR THF CUPRFNT FLEMENT 
C 

C 7FR0 CUT A+B ARRAYS 
nr 2C JJl = JI,JF 
A tJJl ) = C.P 
2Z P (JJl J = C.C 

c 

JJ = JT 
JJl = JJ + 1 
JJ3 = JJl + 1 
6C TO *tC 
ID JJ3 = JJ A 1 
BC j = J + 1 

AC = ABFORMtXOlI > ,YO(I J,0L (ll,SAtlJ ,CA{I >, 

1 XO(J) ,Y0(J),0L(J3,SA(J) ,CAtJ),B01 

P (JJ > = P( JJ 3 ♦ BO 
A(JJ> = AtJJ) ♦ AO 
C 

IF tIPRINT .EO. 2> 

1 WRITE 16,503 JJ, AO, BO 

PR FORKATtlH , 13, 2I4XF12.633 


113 JJl = JJ 

JJ = JJ + 1 

IF (JJ - JF 33C, 120,130 


HAF0C5C 
MAF0C51 
HAF0C52 
MAF0ES3 
MAFO C54 
KAF0E55 
HAF0356 
HAF.0 057 
HAFO CSB 
HAFOCSS 
HAF0C6C 
MAF0C61 
MAF0C62’ 
MAF0C63 
KAF0C64 
MAF0E65 
HAFOIbb 
MAF0C67 
HAF0C6E 
KAF0C6P 
KAF0(;TC, 
HAF0E71 
«afq::72 
MAF0C73 
HAF0C74 
HAF0C75 
KAF0C76 
HAF0377 
'HAF0E78 
HAF0C79 
HAF0C8C 
HAFOCSl 
HAFOC82 
HAFOG83 

mafocba 

KAF0C9E 
MAFOCSt 
MAF0C87 
KAF0C8E 
MAFOC85 
KAF0C9l 
HAF0C91 
MAFOCP; 
MAF0C9: 
HAF0C91 
HAF0L91 
KAF0r9C 
HAF0S9I 
MAF0C9f 
HAF0C9' 
HAF0 1C( 
KAFOlO; 
MAFOlO: 
HAFO lo; 
MAFO IQi 
HAFCIC-' 
HAFOlOl 


C 

c 
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c 

12C JJ3 = JJl - 1 
GP TO MO 
130 JJ : JJ - 1 


IF LIFTING BODY, SAVE FIRST AND LAST B. ALSO CALCULATE N AND T. 
IF JLIFUIB) .EQ. 0) GO TO 1 5C 
VH = P.O 
VT = F.o 

SHDSWF(IB) = 0.0 

IF niUT .EO. 1) .AND. II .EO. 10)) 

ICALL WEIGHT (SUNOS t IB), OS, JI i JF , WF , iPVR(IP,)l 
DO IMO J = JI.JF 

SKCSwrilB) = SHDSWFdPI + DSIJI ♦ WFIJI 
WN = VN ♦ B(J)*‘UF(J) 

IMO VT - VT + A(U)*UriJ) 

K = K ♦ 1 
M (K ) = VN 
T(K ) = VT 


ISO CCNTIHUE 

A COMPLETE ROW OF BOTH A AND 6 HAS BEEN GENERATEDi 
SAVE A ON UNIT 9, A AND D ON UNIT IQ, 

CALL SAVEdFlD, 1, li JJ, Ai 1, VN) 

CALL SAVECiriO, 1, i, JJ, Bi 1, VN) 


SET ALPHA ONSET FLOWS 
ALPHA' = r 

Nil) = SAID 
T (1 ) = CA (1 ) 

ALPHA : 9C 

W<2) =-CA(T) 

T (2) r SA 1 1 ) 


DO IGC K = J,H 
JJ = JJ + 1 
160 A(JJ) = N(K) 

THE A-AfiPAY IS, SAVED ON IF09 IN AUGKENTET) FORM 
CALL SAVE(ir09, 1 , 1 , JJ, A,- 1 , VN) 


ALSO SET UP TLU ARRAY 

IF (LIFT(llB) .£0. Dl GO TO 2D3 
IF II ,NE. 10) (iO TO 2D1 
LP = LB + 1 
DC 220 K r 1,H 
2Cd TLUILB.K) = T(K) 

C 

2C1 IF (i ,NE. IF) BO TO 203 


MAF01D7 
MAFOIDB 
HAF0109 
NAFOll'D 
HAFOlll 
NAF0112 
HAF0113 
HAFOllM 
HAF0115 
HAF0116 
HAFOII 7 
HAFOlifi 
HAF0119 
HAF012C 
KAF0121 
HAF0122 
HAF01Z3 
HAF012A 
HAF012E 
KAFOi26 
HAF0127 
MAF0I2F 
KAF012? 
HAF013C 
MAF0131 
HAF0132 
HAFoiSl 
HAF013f 
hAFOiSE 
KAF0I3I 
HAF0i37 
HAF013F 
MAF013? 
J1AF014C 
HAFOIM] 
HAF 0142 
HAFOIAI 
HAFO It*- 
HAFO 14f 
(iAF014t 
MAF014T 
HAF014} 
HAF014‘ 
HAFOlSS 
HAFOIS: 
HAFOIS; 
HAFCIS; 
KAFoiSt 
HAFOiS' 
kafoTsi 

HAFOIS' 

HAF015I 

HAFOIS* 

HAF016. 

HAF0I6. 

HAFC16; 

HAF016 
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DO ?02 K = 1,H 

2C2 TLU<LP,K) r TLUCLP.KJ + T(K) 

203 CONTINUE 
C 

c 

C SAVE NORMAL AND TANGENTIAL ONSET VELOCITIES. 

c normals on Unit ii, tancentials on unit iz 
c 

WRITEdFll) N 
WPlTEIlrj?) T 

IF 1=10 AND LIFTING PODY, 5FT BLU 
IF (I .ME. I0> GO TO IBQ 
IF tLIFT(IIP) .EO. 0) GO TO 18D 
DO 17C J = ] , NELTOT 
17D BLUTJI = BtJ) 


lOQ CCNTINUE 

IF LIFTING BODY, SUM BLU 

IF (LIFKIIBJ .EO. 2» GO TO 210 
DO 190 J = 1, NELTOT 
19D BLU<J» = BLUtJI ♦ BTJ) 


STOKF BLU ON UNIT 13 

CALL S/lVEIIF13f 1, 1, NELTOT, BLU, 1, VH) 
212 CCNTIWE 


2^3 CCNTINUE 

IF (IPR1*>T .NE. 2) 60 TO 343 

WHITE (6,250 
256 FCfiNATMHlJ 
WRITE (6,253) 

REWIND IFIO 
JF = NELTOT 
DO 33C J = 1,JF 

CALL CETTdFlD, 1, jF, A, 1, VNJ 

call GETTtlFlO, 1, JF, B, 1, VN) 

WRITE (6,3CC) J 

3:j FCPHATdHC, T4,»AC, T3,’, J)*/) 
WRITE (6,313) <A(I) ,I=1,JF) 

3)0 F0RRAT(8 (4XF1 2.6) ) 

WRITE 16,320) J 

32C FORHATtlHC, T4,’B(‘, 13, •, J) •/> 
WrjTE (6,3101 (B(I 1 , 1 = 1 ,JF) 

3 33 CCNTINUE 


340 CONTINUE 



MAF0164 

HAFO 165 

MAF0166 

HAFO 167 

KAF0168 

HAFO 169 

HAFO 17C 

MAF0171 

HAF0172 

MAF0173 

KAF0174 

HAFO 175 

HAFO 176 

MAF0177 

HAF0178 

HAF0179 

MAFOieC 

HAF0181 

HAF0182 

NAFCH83 

HAF0184 

HAF0185 

KAF0186 

KAF0187 

HAFOiee 

HAF01B9 

HAF0196 

KAF0191 

HAF0192 

HAF019I 

HAFO 194 

HAF019S 

HAFO 1 96 

HAF0197 

HAFO 198 

HAF0199 

HAF02CC 

HAFO 4 EI 

HAF02C2 

HAF0203 

HAF0204 

HAF02CS 

NAF02C6 

HAF02C7 

HAF0208 

MAF02C9 

HAF071C 

KAF021 1 

HAF0212 

HAF0213 

HAF0214 

KAF0215 

HAF0216 

MAFC217 

HAf02ie 

HAF0219 

HAF022C 


MAF0221 

HAF0222 

MAF0223 

MAF0224 


RETURN 

END 
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c 


c 

c 


SUBPONTINe: KJHN3 

COKf'ON /SfLAG/ IDG(IC), INL(ID), IFL«1D1, NL (1A) « LlFTJlC), 
lEMFflG), ISAVinO), I5AV2(ia» 1 ISAV3<10I, 
BTinfClD, 71, IBT, TEST, IBT CT, NFLTOT, 

ITRPin), rEfhBClDJ, CHOPDSIIOJ , iBDilOl, LIFTOT 
,IPRB(ID), IFSICIOJ, ISECtlC), fTITLEdS), TPVRCIOJ 


HAM3C01 

MAN3CC2 

HAN3C03 

MANSCOi) 

MAN3C05 

HAN3CC6 

KAH 3 CC 7 

HAN3CD8 

MAN3C09 


C 


C 


c 

c 

c 


COKHOK /CCHBOD/CCL, TFfCLT, CLT, ALPHA, SUHDStlCl, TLU< J Q , 12 ) , IND 
1 , ALPHAS, CNUnai, SHDSWFCID), H10(13J 


COHHON 

1 

? 

3 

C OH PON 


/FILETD/ 


IFILEl, 

IFILE6, 


iriLES, 

1FILE7, 


rriLE3, 

IFILEB, 


IFILEB, 

IF1LE9, 


TF2LE5, 
I Finn, 


/HD A 


IFILll, TF1L12, IF1L13, IFILW, 
,IFIL16, IFIL17, IFItie, IFIL19, 
TA/ rSOL ,IOFF,HOHU,NBNU,IPRIKT,HORE,M 


IFILIS 

1FZL2Q 


CALCL'LATF COHUIHATrOK! COKSTAMTS 

CALL COKBO (NELTOT, LIFIOT, K, NOHU) 


C 


C 

C 

C 


C 

c 


CALL TIHEVd) 

WK:1TE»6,E0) 7 

PC FOPKAT tlHC, *COHPO COMPLETE, CALL FLOWS, T = S F «. 3 , 'SECONDS. 

CALL FLCKS (NELTOT, M, IPRINTJ 
CALL TIMEV(TJ 
WFlTE(t>,9C) T 

9C FORHATdHC, 'FLOWS COMPLETE, T r F9.3, 'SECONDS. »> 

CHECH FOP OFFROdY POINTS 

IF dPFF .NF. 1) GO .TO 110 

CAL.L OFFFODINELTOT, P, CH0P03, IDB, IBTOTJ 
call TIhEV (T) ■ • . ' • 

WCITF(t,lC3 ) T 

ICC FORPATtlHC, 'OFFBODY POINTS COHPL.ETF,, T = ', F9.3,.' SECONDS. M 


J 


lie. CONTINUE 
C 
C 


MANICIC 
KAN3C11 
MAM3C12 
MAN3C13 
«AN3Dl«i 
HAN3C15 
KAN3 C16 
MAM3C17 
HAN3Dlfi 
MAN3C19 
KAN3C2G 
MAN3C21 
KAN3C22 
MAN3D23 
MAN3C2A 
MAN3C2S 
MAN3C26 
HAH3C27 
HAN3C2B 
MAN3CZ9 
MAM3C3C 
MAN3C31 
MAM3C32 
MAN3C33 
MAN3C39 
HAN 3C3E 
MAN3C36 
MAN3C37 
MAN3C3E 
HAN3C39 
MAN3C9C 
HAN3CN1 
MAN3 C«f2 
MAN3Ci)3 
HAN3D‘H) 
MANJC«IE 


RF7URN 
E NO 
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original 
OF POOR QUALITY 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE HlSl t A» N» ND» B* HOt NERR » D 1 
& RF&l_*^i SUBROUTIWE TO 

INVERT A MATRIX AND/OR SOLVE SIMULTANEOUS EQUATIONS 

OF INPUT MATRIX, DIHENSIONED A<ND,NE) 

N = IS THE ORDER OF THE MATRIX A , 

ND - IS THE dimension OF ThE SQUARE ARRAY A 
B - NAME OF INPUT MATRIX, DIMENSIONED B«ND,KD) 

MD ='lS*THE NUHBER^OF COLUMNS IN THE RECTANSULAR j jjB , 

D = SCALE FACTOR FOR VALUE OF DETERMINANT (=1.. FOR HO SCALING) 

OUTPUT, 

A fI,J) -■ GARBAGE 

B II, J) = A-TNVERSE * B 

NERR - C — OK, I — A IS SINGULAR 

D = SCALED VALUE OF DETERMINANT 

REAL**) A,B,D, AIJHAX , ARAT 

DIMENSION ATVO,ND>, BIND,MD) 

EOUlVALEHCE IL,FLI, TK,FK) 

DATA EPS/I.E-25/ 

START REDUCTION OF MATRIX A 

DO 8D 1=1 ,N 

SEARCH FOR MAXIMUM ELFMENT IN ITM ROU OF A-MATRIX 

AIJMAX = AII,1» 

JMAX - 1 

DO IG J=2,N _ 

JF I ABSIAH,J)) »IE. AESIAIJMAX)) GO TO 

AIJMAX = A(I,J) 

JMAX = J 
ID CONTINUE 

IF AIJMAX IS ZERO, THE MATRIX IS SINGULAR 

IF tAPSCAIJMftX) .GT. EPS) GO TO 70 
D — C • C E D 
NERR = 1 

RETURN 

HCRKALIZE ITH ROV by AUKAX UMAX ELEMENT OF ITK ROD) 

20 DO 3C J=1,N 
IG AII,J) = AIT»J) / AIJMAX 
D = D#AUmAX 

NORMALIZE ITH ROW OF P 


DO 4C J=J,HD 

IS EII,JT = EtI,J) / AIJMAX 


MISIDDI 

KIS1CD2 

HTS1003 

HISIOOR 

HISlCOS 

HlSlCOt 

MIS1CD7 

HIS1CC8 

MIS1C09 

HISIDIC 

HISICU 

HIS1D12 

HISICII 

MISIXI*! 

HIS1C15 

HISICII 

MTSlCn 

Ml'SlClf 

KIS1CJ‘ 

MlSlCZf 

MIS-102) 

MIS 1 E27 

MTS1C2: 

MlSlCZt 

MIS1C2‘ 

MIS1C2C 

MIS1C2" 

Misicai 

MI51D2- 

KIS1C3: 

M1SJC31 
HIS1C32 
MISI033 
KIS1C34 
KIS1E35 
MIS1E36 
HIS1C3T 
MISl C38 
MIS1C39 
MISl CRC 
HISlCAl 
8151012 
.HISICU 
MIS1C44 
MISICA' 
MlSlCIt 
HISIDIT 
MlSlCIf 
HISICR^ 
HISICBC 
MIS1C51 
M1S1E57 
HISICSI 
HISICSI- 

Hisics: 



nooo r>ooon ooono 


126 


USE POW TRANSFORMATIONS TO GET ZEROS ABOVE A hO BELOW THE JMA.X 
ELEMENT OF THE ITH ROW OF A. APPLY SAHE ROHL TRANSFORMATIONS 
TO THE B MATRIY . 

DO 7Z K=I,N 
IF fK .EO. I) GO TO 70 
ARAT : -AlKrJMAXJ 
DO Jrl,N 

IF (ABS(A(IfJn .LT. EPSJ GO TO 50 
A<K,J) r araT ♦ AII,J) ♦ AtK,JJ 
50 CONTINUE 

AIK,JMAX) r D.DED 
DO 6C JrljNO 

IF (APSIPtl.jn .LT. EPSl GO TO 63 
= ARAT * 0(1, J) * B(K,JI 

60 continue 

7C CONTINUE 

STOPE ROW COUNTER (IF IN TOP ELEMENT OF JMAX COLUMN. THUS, 

THE TOP ROW or A HILL CONTAIN THE LOC OF THE PIVOT (UNITY* 
ELCHEKT OF EACH COLUMN (AFTER REDUCTION!. 

L = I 

PC A(1,J!'AX) = FL 

THIS STORES INTEGER 1 IN TOP POW OF A 

THE REDUCTION OF A IS NOW COMPLETE. PERFORM ROW INTERCHANGES 
AS INDICATED IN THE FIRST ROW OF A. ' ‘ 

DC 12c T=- 1 ,N 

K - 1 


MlSlCSt 
MIS1C57 
MISI C5F 
NISI CS' 
MIS1G61 
MIS1D61 
MIS1C62 
MIS1C6I 

Misicew 

H1S1D65 
M1S1C66 
nisi E6T 
MIS1C6E 
MIS1C6S 
-HIS1S7C 
F1IS1C71 
M1S1C7: 
MTS1C7: 
H1S1C71 
msiC7f 
HISIC7C 
HIS1C7' 
HIS1C7E 
HIS1C7' 

Misi cer 

Misi ce; 
MI side; 
misice: 

KISICB* 
Ml S 1 OB 
MISliEi 

Misice 


93 FK ^ A»1,KJ 

C THIS PUTS THE INTEGER VALUE IN A INTO K 

IF (K-I)9G,12G,10C 
C 

c If Klljl) IS LESS THAN I, THEN THAT ROW HAS ALREADY BEEN 

C INVOLVED IN AN INTERCHANGE, AND w£ USE KIl^K* UNTIL HE 6E.T 

c A VALUE OF K GREATER THAN 1 (CORPESPONDi NG TC A POW STORED 

C BELOW THE ITH ROW. (CLEAR AS HUP) . - 

C - ' ‘ 

17C DO lir Jrl,KO 
ARAT r PCJfJJ 
B(J,J) = P(K,J) 

110 B (K, J) = ,AftAT 
D = -D 

12C CONTINUE 

NERR - C 

RETURN 

END 


MlSlCPf 
MISI CS? 
M1S1E.9C 
MISI C9] 
M1S1C92 
MISI C93 
F<1S109A 
KTS1E9L 
MlSlCSf 
HISIC97 
HlSlCof 
M1SIC9‘5 
MISllCC 
MISI ID] 
MIS11C2 
Mlsj ICI 
MlSUCt 
MISI 10' 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 
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SlBROUTINt KJS2 < A, N, NO, 3, KD , 




HX, HERR, D) 


A REAL**! SUEROOTIHE 70 

INVERT A KATRIX AND/OR SOLVE SIMULTANEOUS EQUATIONS 


INPUT, 

A = NAf*t OF INPUT MATRIX, DIMENSIONED AtND,NCI 
N = IS THE ORDER OF THE MATRIX A 
ND = IS THE DIMEHSTON OF THE SQUARE ARRaV A 
E = NAME OF INPUT MATRIX, DIMENSIONED E(ND,HC» 
t BINDl IS ALLOWED IF MOri > 

«r = IS THE number of columns in the rectangllar array b 

0 = SCALE FACTOR FOP VALUE OF DETERMINANT f:I., FOR NO SCALIKGJ 


OLTPUT, 

A (I , J) = GARBAGE 

= A-TNVERSE * P 

KERP - 0 — OK, 1—A IS singular 

D = SCALED VALUE OF DETFPHINANT 


RFAL*R A,B,D,AIJHAX,ARAT 

PIHEKSIOM AfND.NDJ, BJNDjMXJ 
EQUIVALENCE tL,FL>, «K,FK1 
data EPS/I. E-25/ 

START REDUCTION OF MATRIX A 


DC BE 1=1 ,N 


SEARCH FOR MAXIMUM ELEMENT IN ITH ROU OF A-MATRiX 

AIJPAX = A(T,1> 

JMAX = 1 
DP 1C J-2,N 

IF ( AES{A(I,J)1 ,LE, APS(AIJMAXI) GO TO IE 
AlJMAX = A(1,J> 

JMAX = J 

ccntimue 

IF AIJHAX IS 2£R0, THE MATRIX IS SINGULAR 

IF fABSIAUKAXl .GT. EPS) GO TO 2C ' 

P - E.CEC 
NFRR r 1 
RETURN 

NORMALIZE ITH ROW BY AIJHAX UMAX ELEMENT OF ITH ROW) 
2D DO 3L J=1,N 


3C 

A(I,J) = A(T,J) 
D = D«AIJMAX 

/ 

AT JMAX 


NORMALIZE ITH ROW 

OF P 

4C 

DO RE J=1,HD 
B tl ,J> = B ( T,J) 

/ 

aijmax 


MIS2CC3 
HIS 20 C 2 
M1S2CG; 
MS2GCR 
KIS2C0E 
H1S2CDF 
HISZCCT 
MIS2CD( 
H1S2 CO' 
KIS2C1E 
K1S2C11 
KIS2C 12 
HIS2E1: 
H1S2C11 
M1S2G1' 
MiS 2 Cie 
HIS2C1? 
MIS2C1I 
MIS2C1‘ 
KIS2C2C 
MIS2C23 
KIS2C22 
MIS2Q2: 
KIS2D2T 
MIS202! 
HIS2C2e 
HIS2C27 
HIS202J 
HIS2C2* 
HIS?C3( 
HIS2C3I 
K1S2C32 
HIS2C3; 
HIS2C3A 
MIS2C3E 
HIS?C3t 
MTS2C3': 
KIS2C3E 
HIS2C3< 
K1S2CJII 
HIS2C43 
HIS2C42 
MIS2C4; 
HIS2E4L 
H1S2 C4E 
HIS2CNt 
mS 2 C 4 T 
MIS2C4f 
HIS2 C4e 
MIS?C5t 
HIS2CS1 
MIS2C5J 
HISZC53 
HIS2C5A 
HIS2C55 
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c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


use ROM TRANSFORhA TICKS TO 6 E.T 7 .EpOS ABOVE At,D BELOW THE JKAX 
Of the I TH row of A« apply same row TRAN SFORHATIOHS 
TO THE B HATRIX* 


DO 7G K-1,N 

If (K ,EO.. .I.>. GO TO 70 

APAT = “ACK,JHAX> 

DO SC 

IF lArS(A(I,J)) .LT. EPS) GO To SO 
A(K,J) :: ARAT ♦ ATl^J) -f AIK^J) 

50 continue 

A(K,JHAX) r d.oed 
00 6 : J=1,HD 

IF tAPSTP{I,J)J ,LT. rpS) GO TO 60 
= aRAT ♦ Btl.J) •» eiK.J) 

GO CONTINUE 
7C CONTINUE 


STORE ROW counter {TJ IN TOP ELEHEnT OF JKAX COLUHNi THUS. 
the top row OF A HILL CONTAIN THE LOC OF THE PIVOT (UNITY) 
CLeHeNT OF EACH COLUMN (AFTER REDUCTION). 

L = I 

<?.' Ad.JPAX) = FL 

THIS STORES INTEGER I IN TOP ROM OF A 

7 FE reduction OF A IS NOW COMPLETE. PERFORH ROW INTERCHANGES 
AS INDICATED IN THE FIRST ROW OF A, 

DO 12 C 1 = 1 , N 

K = I 


K 1 S 2 C 5 ' 

HIS 2 C 5 t 

«T 52 C 5 ‘. 

HIS 206 t 

KIS 2 C 6 ] 

HTS 2 C 6 J 

KIS 2 C 6 I 

HIS 2 C 6 <- 

HIS 2 C 65 

HIS?Cfc( 

HTSZC 67 

HIS 2 C 6 f 

HIS2C6( 

H 1 S 2 C 7 C 

HIS 2 C 71 

KIS 2 C 7 ; 

KIS 2 C 7 : 

HIS 2 C 7 ‘ 

HIS 2 C 7 ! 

HIS 2 C 7 f 

HIS 2 G 7 ' 

HIS 2 C 7 ( 

MIS 2 C 7 ' 

PIS 2 C 8 I 

Miszos: 

HIS 2 C 8 ; 
KIS 2 D 8 ; 
MlS 2 C 8 i 
pi-s 2 E ‘s : 
M 1 S 2 C 6 ( 
HISZC 8 - 


C 

C 

C 

C 

C 

c 


FK = «( 1 ,K) 

IF (K-I,9C.12o'iDd“'' " 

IF Kll.IJ Is LESS THAN I, THEN THAT ROW HAS ALREADY BFFN 
INVOLVED IN AN INTERCHANGE, AND HE USE Kll.K) UNTIL WE GET 

Greater than, i (corresponding to a' row storei 

BFLOH THE ITH ROW.- (CLEAR AS HUD) 


ICC 

DO u; 

J= 1 ,MD 


APAT r 

Btl.JI 


P ( 1 , J) = 


IIG 

P (K ,J) r 
D = -D 

ARAT 

1?3 

CONTINUf 



NfRR = C 

RETURN 

END 


HIS 2 CB 

HIS 2 E 8 ’ 

HIS2C9 

KIS 2 C 9 

HTS 2 CS: 

KIS 2 E 9 : 

HISZCRi 

HIS 2 C 9 I 

KIS 2 C 9 / 

HIS 2 C 9 ' 

PIS 2 C 9 . 

PIS 239 ' 

MIS 21 C; 

KIS 2 I 0 .- 

K 1 S 21 G; 

HIS 21 CE 

KTS 21 Ct' 

MIS 21 D! 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


SLEPOUTINF OFFBOOtN, H, CHORDBt IDB i IBTOT) OFFPCCl 

C OFFRCD2 

DlHENSiON XUDOIt YtlDOl, TITLEI7» ' • 0FFBC03 

1 ,CHORDB«lDJi IDPtlD) OFFeCD<4 

C CHKON/COHBODyCCL ,INCLT ,CLT ,*LPHfl ,SUMDS 1 1 Cl , HUt 1 C.121 .TWP OFFBCCE 

1 , AtPHAO* CNUUDIt SHDSWFtlO), FlOtlOl CFFPCDt 

OFFBCC7 

CEAD IN OFFEODY POINTS tIN BLOCKS OF UP TO ICO) OFFBCCE 

10 CALL OFFPTSCNO, X, Y, ■ TTTtF , LAST, CHORDB, ICE, 1 PTOT ) OFFBC05 

OFFBCIC 

NOW CALCtlATE VX AND VY OFFSCll 

CALL VXYOFFtN, M, NO, X, Y) OFFEE12 

OFFBE13 
OFFBCl*! 

PRINT OFFBODY POINTS AND VELOClIlFS • OFFPClS 

CALL VPPOFFfN, H, NO, X, Y, TITLF, INDJ OFFSC16 

CFFBE17 

CHECK IF KOPE POINTS AND CYCLE IF SO OFFBC18 

IF tLAST .NE. II GO TO 10 OFFBCIP 

C OFFBC20 

C 0FFBC21 

RFTUPN 0rFBC22 

END 0FFBC23 
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StJBROUIINE PRINTS HP, N, ID,;BTITLE) . ■ 

THIS SOBROUTIHE WRITES OUT THE 8 ODY .COORDINATE CATA- 

dimension BTITLE f T),Al2t 
COMMON /SEOMD/ -XISOD)', YISDO) 

DATA Am ,A (Z}/»‘UMTR* , • TR»/ 


C 


J2 = fl 


to Write <6,3Q> 

WRITE tfc,20) ACIPl, ID, BTITLE 
2C F0RMATtiHC,15XA4, 'ANSFORMED COORDINATE 
^ 7Ai|//Tl5,'I*, T27,*X(I| 

T75»*I’, T87,*Y(i) 

33 FORMAT (IHl) 


DATA F,OR Body id 
*, T44,*Y(n», 
*,T104,»Ym*> 


*»1 = J 2 + 1 

JPX = J1 + 49 

N2 - fN ♦ 1 ♦ JZJ/2 

IF IJ«X .GT. M2) JHX = N2 

JP = JHX 


C 

c 


c 

c 

c 


DC EC J r ji , jk;( 

J 2 = J 2 ♦’ 1 

-IF fJ2 .GT. N) GO TO 60 
^RITE ( 6 , 4 D) J, xtJI, yjjj, J 


2 , xrj 2 ) 

, 23X11, 


» Y<J 2 I 

2 fsxri 2 . 6 )j 


IF (J2 ,LT. N) GO TO in 

return 


6C WRITE (6,4CJ J, XtJJ, Yfj) 

RETURN 

END 


PRN(JC,C1 
PRNGCC2 
•PRNGCC; 
PRNGCOA 
PRNCCCf 
PRNRDOf 
PRNGC07 
PRMGCOf 
PRNGCDS 
PRNGOIC 
PRNG Cll 
PPNGCli 
PRNGCl.- 
PRNGC14 
PRNCClf 
•»I2» PPHGOIE 
PBNGC17 
PRNGCil 
PRNGCl* 
PRNGEZ.C 
PRNGC2J 
PRNOCZ; 
PRNGC2. 
PRNGC2* 
PRNGC2: 

PRMGC2( 

PRNGCZ’ 

PRMGEZf 

PRNCC 2 f 

PRNGC3t 

PPNGC3. 

PRNGC3: 

PRNGC3: 

PPNG E3,t 

PRNGC3‘ 

PRN6C3( 

PBNGCS: 

PRNGC3t 

PRNGC 31 

PRN634{ 

PRNGC4 : 
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ORfeiN-Ai; PAGW m 
OF POOR 



SUBROUTINE PRflTEL 

PRNl CD- 

c 



PRNLOdr 

c 



PRNLOO: 


DIMENSION AN(10> 

PRNLCOt 


REAL NEW.NO.NCHOE 

PRNL CO* 

c 



PRNLCCf 


COMMON /BFLA6/ IDBflC), INLflDI, IFL(ID), NMID), LIFTaOI, 

PRNLCC7 


1 

IBMFUOJ, ISAVKID), ISAV2(1D1, ISAV3C10), 

PRNLCCf 


2 

BTlTLEClO, 71, IBT, IBST, IBOTCT, NELTOT, 

PRNL CCS 


3 

ITRBUCl, IHMBllOl, CHORDB t ID J , IBD 110 J ,LIFTOT 

PRNL El C 


N 

,IPRB(1C>, IFsniD), ISECtlCJ, FTITLECIB), IPVBtlCJ 

PRNLOII 

c 



PRNLC12 

c 



PRNLC13 


DATA NEW, OLD, YES, NO, SAVED, BLANK/’ NEW’,* OLD*,’ YES*,* MO *, 

PRNLG19 


1 

• S *,* •/,CMGE,NCHBE/»CHGF*,* NC •/,AN/» 0 *,» 1 *, 

PRNL015 


2 

• 2 »,* 3 *,* R *,* 5 *,* 6 *,* 7 *,* 8 *,* •/ 

PRNLC16 


3 

, AP, AL/ * P *, * L V 

PRNLC17 

c 



PRNLC18 

c 

VRITE 

HEADING FOR BODY GEOMETRY SUMMARY 

PRNL C 19 


WRITE (6,13> 

PRNL 020 


10 FORPAT tlKl', T51,*B0DY GEO"ETRY SUHHARY’// 

PRNLC21 


1 

1HQ,T33,*B0DY LIFT • ,T99 , 'SIGMA • , . 

PRNLC22 


2 

TllA.'ELEMEMT STORAGE*/ 

PRNL023 


3 

T6,*B0DY DESCRIPTION* ,T39 , ’ID TYPE’, 

PRNLC2M 


R 

T5C,*N/0 SID TFORM NORM CHORD TYPE*, 

PRNL025 


5 

T97,*F C sc M/0 FIRST KO.*J 

PRNLC26 

c 



PPNLE27 

c 



PRNLC28 


lEDTOT = D 

PRNLC29 


NFLTOT - 0 

PRNLC3C 


LIFTCT = C 

PRNL 231 


Do 

15D IF. = 1,IBT 

PRNLC32 


IF 

(IBDtlB J ,GE, 61 GO TO ISO 

PRNLC33 

c 



PRNL C3R 


IF 

llaOdBl - 5120,20,30 

PRNLC35 


?0 ^2 

r new 

PRNLC36 


A3 

= BLANK 

PRNLC37 


IF 

IISAV3(IB) ,GE. D) . A3 = SAVED 

PRNLC38 


GO 

TO 9 0 

PRNLC39 

c 



PRNLC9G 


30 A2 

r OLD 

PRNL 091 


IN 

= ISAVKIBJ •» 1 

PRNLC92 


A3 

= AN(IN) 

PRNLC93 

c 



PRNL 094 


1)0 AR 

r NO 

PRNLC9S 


AS 

= NO 

PRNLG96 


IF 

llTReilPl .to. 1) ■ Aq = YES 

PRNLC97 


irUNNBUBI .EQ. 1» AS = YES 

PRNLC98 

c 



PRNLC99 


A1 

= NO 

PRNLCSC 


IF 

CLIFTUBl .EO. 1> A1 = YFS 

PRNL051 

c 



PRNLC52 


Ae 

= OLD • . • - 

PRNLDS3 


IF 

tlBMF (IB)' - IJ7D,5C.,6P 

PRNLCS9 


SO A 6 

= NEW 

PRNL CSS 


GO 

TO 70 

PRNLC56 


60 A 6 

: CH6E 

PRNLC57 

c 



PRNLG58 

c 



PRNLCS9 



o 
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70 *7 = AP t'KNLt.c 

Ig = 1 PRNLDfe 

19 = 1 PRNtD6 

n0= 1 PRNLCt 

111= 1 PRNLCe 

C PRNLOf 

IF {IPRPtIBJ .NE.- II At - AL PRNLCf 

rr arsTtlB)' - z) 80 , 9 D,rao prnlci 

PC 19 = c PRNLCl 

IF (3FSTHBJ .EO. H GO TO lOD PRNLDl 

90 IP = C PRNLE' 

100 IF lISECdB) - ?H10,12D,'MO PRNLC' 

lie 111 - 0 PRULf 

IF (ISEcaB)' ,EQV II GO TO 130 PRNLC 


120 lie = 0 PRNLC 

130 CC^T1NUE PRNLE 

C PRNLE 

JPOTOT = IBOTOf 1 PRNLD 

WELTOT r NELTOT ♦ NLCIBJ PRNLE 

IF iLIFTdBI .E<r. II LIFTOT = LlFTOT ♦ 1 PRNLC 

ttRlTt (6,1«10> fBTlTLEIIB,llf I=if71f lOBflBI* A’l , A2* A3» PRNLC 

1 AH', AS, CMOfiOStlftlt Hit Ift, I lie, ill, A6, PRNLC 

2 INCdBJ, NLdBl PRNLC 

faO FCIRPA-T MHO,- 7AA, 9X12, 5XA'*I,- 4XA4, 2XA4 , 3XA4* 3XA4, 2XF12.6 ,PRNLC 

1 3XA9, 3X11, 2XT1, 3X11',’ 2X11, 3XA4, SXI4 , 4XI4J PRNLC 

C PRNLC 

1?C CCNTINUE PRNLC 

PRNLC- 
PRNLC 

HRI'TE f6,-lGDl- fBDTOT,'- VFtTOT PRNLC 

JFO FOPKAT CHO, ///T53, ’TOTAL NUMBER OF BODIES = » , T3/ PRNLC 

1* IHO, //T51, ’TOTAL NUMBER OF ELEMENTS = ’,131 PRNLC 

C PRNLC 

C PRNLl 

return PRNLf 

END PRNLl 
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ORIGINAL PAGE IS 
JF POOR QUALITY 


c 

c 


FUNCTION 


RHAX CNLi Xf Yi TMflX) 


DIKFNSlOK X(NL), Y(NL> 


RHAXCCl 

RHAXCC2 

RHAXCD3 

RKAX!:04 




ID r 1 


RHAXCOG 



11 KL/2 


RKAXCOe 



13 = 11 « ID 


RHAXCD7 



R1 = SOPTt tXtIl)-XI 1) )**2 • ( Y(I1 )-Y U 1 )**2) 


RMAXCCe 



R2 - S0RT((X(I3)-X{1»)**2 * ( Y t 13 )-Y ( 1 ) ) **2 ) 

' 

RHAXCC9 



IF (R2 .GT. Rl) GO TO 20 


RHAXCIC 

c 




. RHAXCll 



R3 = R1 


BKAXCI2 



13 = 11 


RKAXC13 



ID = “ID 


RHAXE14 

c 




RHAXC15 


1C 

Rl = R2 


RHAXGIG 



fi? = R3 


RKAXG17 


20 

13 = 13 + 1,0 


rhaxcig 



R3 = <:ORT t (XII3 )-X( 1 ) Jy+ 2 + t Y 1 13 )-Y ( 1) ) **2 ) 


RHAXC19 



IF (R3 .CT. R2) GP TO ID 


RMAXC2C 

c 




RKAXC21 

c 

FALCULATF ANGLES 


RKAXC22 



i: = 13 - ID 


RHAXC23 



11 r T2 - TO 


RHAXC24 



T1 = ARSIKUY(I1)-Y<1)>/R1) 


RHAXC2& 



T2 = ARSTN(tY(I2)-Y(l))/P2) 


RHAX C2G 



T3 = ARSIN( IVtl 31-Y U )>/R3) 


RHAXC27 

c 




RHAXC2a 

c 

CALCULATF MAXIMUM RADIUS (CHORD) 


RKAXC29 



T2 = T2 - Tl 


RMAXC3C 



T7 = T3 - T1 


RHAX“31 



A3 - T2*T3»(T3 - T2) 


RHAXC32 



R2 = t^2 - Rl 


RHAX C33 



R3 r K3 - R1 


RHAXC34 



A1 = CR3«T2 ' R2*T3)/A3 


RhAX C35 



A2 = (R2*T3**2 - R3*T2=»#2)/A3 


RMAXC36 

c 


' 


RHAXC37 

c 




KMAXC3S 



RFAX - -:.25YA2**2/ A1 ■* Rl 


RKAXC39 



TKAX = -C.S*A2/A1 ♦ T1 


RHAX C4C 

c 




RHAXC41 



RETURN 


RHAXC42 



E)D 


RHAXC43 



on r> o 
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, SUBPOUTINC SAVLIIU, ITt N, NJ, Al, N2», A2> 

•-- DIHtNnOk .AltNl>, A2CN2J 

G,0, TO Clt-,2C,3D,4Q) , IT 

WRITE M 
IC MRITEtIUE Al 
RTTUPN 

WRITE N and Al 
' 23 WFlTrJIU) N, Al 
RETURN 

A 

C ■ WRITE Al AMP A? 

, 3? WFnrilU* Al, A2 
RETURN 

C 

C WRITE A, Al, AND A? 

43 wriTElIU) K, Al , A? 

‘return 
'E Nt 


SAVECCl 

SAVECC2 

SAV'ECCZ 

SAVE CD4 

SAVrCGE 

SAVE CCt 

5AVEC07 

SAVECCe 

SAVECD9 

SAVECIO 

SAVECll' 

SAVEC12 

SAVC13 

SAVEG14 

SAVEC15 

SAVEC16 

SAVrClT 

SAVEC18 

SAVE Cl? 

SAVEEZC 

SAVEC21 

SAVCC22 
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SLFRfOUTIt^E 

SOLVIT 

(A* ND, 

KDf KD, 

MI, 

HM, 

NC, NW, *1 


c 









c 


**»/ 


***** 

* 


***/ 

* 

c 

* * 

* /* 

4 

* 

*■ 


* /* 


c 


* / * 

4 

*** 

*■ 


♦ * •*** 

4r 1 

c 

4: 

*/ • 

» 

* 

* 


* 

4=4+ 

c 

4 

/♦** 

4 

* 

***** 

/*** 

* 

c 

c 

D 1 

R E C T 

MAT 

R I X 

s 

0 L 

U I I 0 N 



c 

C WRITTE^N PY J. L. HESS *■ PROGRAHf'FD BY T, K. RIDDELL 

C 

OlMtNSlOH A ( KD > 


C 

C 


c 

c 

c 


LOGICAL LAST 


CALL TIpEV(AAI) 

IFL AAI .EQ. C. 1 
W = MO 
»* = HO 
KOBE : KO 
MPK = K ♦ K 

IF <HAXul5 * MPH, » ♦ H) 

HT r "K 

RFWIK'D HT 
Mlh r NI 
REWIND KIN 
NOUT r NO 
RFUINO NCUY 
MPl = H * 1 
NN = N 
NEt = NPH 


CALL TSETV 


.gt. kore> return 1 


ORIGINAL PAGE IS 
.OF POOR QUALITY 


CALCULATE THE MAXIHUH HO, OF ROWS, 'K* 


ID K r <KORE - NELJ / HEL 


C 

C - - TEST TO SEE IF IHF PEST OF THE MATRIX WILL FIT IN CORE 
C 

LAST r K .GC. NN 
IF (LAST) K : NN 
C 

C - - RFAO *K* ROWS OF ThE AUGMENTED *A» MATRIX 
C 

2C NT = 

DC 3C IB = 1, K 
HS = NT ♦ 1 
NT = NT ♦ NEL 

30 CALL GETTtMlN, 1, NEL, A(NS>, 1, AA21 
C 

C Ch-ECK TO SEE IF WE WERE UNLUCKY ENOUGH TO END UP WITH ONLY ONF RO 

C 

IF <K ,EO. 11 GO TO 90 

c ■ 

C - - •«» IS GREATER THAN *1» SO UE CAN START THE IRIAKGULARIZATION 
C 

NFLPl = NEL *1 - 

NS : - NEL - 

NELP2 = NELPl ♦ 1 
C 

C form THE ‘TRAPEZOIDAL* ARRAY t8) 

C 

DO AC IB = 2, K 
NP = HELPZ - IB 


5LVTCC1 

SLVTC02 

SLVTCC3 

SLVT CCR 

SLVTDC5 

SLVTCC6 

SLVT CC7 • 

5LVTC06 

SLVTtEW 

SLVTCIC 

SLVTCn 

SLWTC12 

SLVTCI3 

SLVTC14 

SLWtCIB 

SLWTC16 

SLVTC17 

SLVTCie 

SLWTC19 

SLWTCZC 

SLvrczi 

SLVTC22 
SLVTC23 
SLVTC2R 
SLVTC25 
SLVTC26 
SLWTC27 
SLVTC28 
SLVTC29 
SLVTC3Q 
SLVTC31 
SLWTC32 
SLVTC33 
SLVTCm 
SLVTC3S 
SLVTE36 
SLWTC37 
SLVTCie 
SLVTC39 
SLVT CAD 
SLYTOl 
SLVTCA2 
SLVTCM3 
SLVTCAA 
SLVT CAS 
SUVTC46 
SLVTC47 
SLVT CAS 
SLVT LA 9 
SLVTCSC 
SLVTC51 
WSLVTC52 
SLVTC53 
SLVTC5A 
SLVtCSS 
SLVTC56 
SLVTC57 
SLVTCSS 
SLWTE59 
SLVTC60 
SLVTCtl 
SLVT062 
SLVTC63 
SLVTS6A 
SLVTC6S 



n nnr> nnnoon n n n 
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^5 = MS ■♦ MFLPl 

SLVT C66 


MT = NS 

SLVTE67 


DO. «IL 10 r IE, K 

SLVTC6B 


NT = NI ♦ Hr|_ 

SLVTC69 


nr = NT 

SLVTC7G 


NF = NS 

SL VTC71 


* <NT> = I-/UNT) J / «{NS) 

SLVTC72 


DC NC NF = 2, NP 

SLVT C73 


MK = h*N ■» i 

SLVTC7N 


NE- = NF ♦ 1 

SLVTC7S 

<ID 

A4HM> r AIHM) + AINT) • A«NS) 

SLVTC76 


IF tL/lSTl GO TO 90 

SLVTC77 

SLVTC7E 


WKITt THE ’TRAPFZOinAL » MAT91X ON TAPE 

SLVTC79 

SLVTCeC 


NT r C 

SLVTCei 


NP : KIEL 

5LVTCP2 


NS r - NTL 

SLVTCE3 


DC 5E 10 = 1, K 

SLVTCeR 


NS = NS ♦ MELPl 

SLVTC85 


NT r NT + MFL 

SLVTC86 


CALI SAVE(*4T, 2, NP, NP» A(NS), 1, AA2T 

SLVTC87 

SO 

NT ;7 NP - 1 

SLVT :88 


KF r NP - K 

SLVTCeS 


NS : KORE - NFL + 1 

SLVTC9C 
SLVT C91 


READ ANOTHER ROW 

SLVTC92 

SLVTC93 


DC fiC 10-1, NP 

SLVTC9N 


CALL GETTENIN, 1, NEL, ACNSl, J, AA2J 

SLVTC95 
SI VTCRe 

• - 

NCCIFY THIS ROW BY THE »TPAP£ 70ID AL • ARdAY 

SLVTC97 



SLVTC96 


NT = 1 

SLVTC99 


NN = NS 

SLVT 3DC 


DO '7C IF - 1 , K 

SLVTIOI 


Nr = NT 

SLVT1C2 


NF = NN + 1 

SLVT1C3 


A IKN) = t*A tPNI ) / -ACNTJ 

SLVTICN 


DO 60 NW - Nf, KORE 

SLVTICE 


N' :r Nf + 1 

SLV71C6 

60 

ACKM = ACNM) ♦ AtMN) * AfNPl 

SLVT1C7 


rtN r NF 

SLVT1C8 

7C 

NT r NT ♦ NELPl 

SLVT309 

5LVT11C 


HFI-TE THE HOOiriEO ROW ON TAPE 

SLVTlll 

SLVTI12 


NNl = KORE - NN * 1 

SLVT113 

RD 

CALL SAVEtNOUT, 1, NNl, NNl, AtHNl, 1, AA2) 

SLVT114 


REWIND NOUT 

SLVTllS 


REWIND NIN 

SLVT116 


• 

SLVT117 


SWITCH THE TAPES 

SLVT118 

SLVT119 


NT r NIN 

SLUT12C 


NIN = NOUT 

SLVT121 


NOUT = NT 

SLVT122 



ouiginalp&g®® 

OF POOR QUALITY 


13T 


c 

_ _ 

RC-CALCULATE ROW LENGTH AND 

LOOP BACK 


SLVT12R 

c 





SLVT12S 



NEL = MEl - K 



SLVT126 



NN : NEL - H 



SLVT127 



GO TO 13 



SLV7128 

c 





SLVT129 

c 

. - 

REWINP ALL TAPES 



SLVT13C 

c 





SL VT131 


90 

REWIND HT 



SLVT132 



REWIND NIN 



SLVT133 



REWIND NOUT 



SLVT13*t 

c 





SLVT136 

c 

- ^ 

CONDENSE THE MATRIX 



SLVT136 

c 





SLWT137 



NR - NEL 



ELVT13& 



NL r NEL + 1 



SLVT139 



IF (K .FO. U 60 TO 110 



SLVTl*ie 



NS = 1 



5LVT141 



NT = NEL 



SLVT 142 



DC ICC IP = 2, K 



SLVT143 



NS r NS + NELPl 



SLVTIRR 



NT = NT •» NFL 



SLVT14S 



DO ICC 10 = MS, NT 



SLVT 146 



A(NL) = AdO) 

, 


SLVT 147 


ivz 

Nl = RL + I 



SLVT14P 


lie 

K1 = KORE - K ♦ H ♦ 1 



SLVT 149 

c 





SLVT } 50 

c 

- _ 

THERE, MOW ME CAN STAPT THE 

6 ACK-SOLDTION 


SLVT IBl 

c 

^ * 

NOTE.. THE FIRST AVAILABLE LOCATION FOR THE 

SCLUTICNS IS A(N1) 

SLVT 152 

c 





SLVT 153 



NReM = N 



SLVT154 



NEL = NPM 



SLVT 155 



LAST rK .EO. N 



SLVT 156 



NFASS = 0 



SLVT 157 

c 





SLVT 15B 

c 


SOLVE FOR THE ANSWERS CORRESPONDING TO *K* 

PCUS 

SLVT 159 

c 





SLVT 16C 


12u 

KMl = K - 1 



SIVT161 



KPl = K ♦ 1 



SLVT 162 



MS = NL - HPl 



SLVT163 



NPASS - NPASS ♦ 1 



SLVT164 



no 1E3 KN r 1, H 



SLVT165 



MF = NS ♦ HN 



SLVT 166 



A (NF ► = ACNF) / AIMS) 



SLVT 167 



NT = NS 



SLVT166 



IF <KM1 .EQ. CJ GO TO ISO 



SLVT169 



DO liJC Jk = 1, KHl 



SLVT17C 



NF = NF - IP - H 



SLVT171 



NT = NT - HPl - IB 



SLVT 172 



SDK. = 0-0 



SLVT173 



NP '= NF 



SLWT174 



M2 = KPl * IE 



SLVT175 



DC 130 TO = 1, IB 



SLVT176 



NN = NT ♦ 10 



SLVT177 



NP = HP •» N2 - 10 



SLVT17S 


1 30 

SDH = SDK + AINNJ ♦ A(NP) 



SLVT179 
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1<IC AINFl r fAINF) - SUM) / A(NTI 
15£i CONTI W£ 

C ... 

C .HOVE THE SOLUTIONS TO CONTIRUOUS LOCATIONS STARTIkB-AT AIN1» 

N1 = KORE * 1 
DO 17C NN = 1 , K 
DO 16C MN - 1 , M 
NL = NL - 1 

Nl.= N1 - 1 

ISO A (Nil = AINL) 

17C NL = NL - NN 

c ■ 

c - - vpiTE The solutions on tape 

c 

write (NIN) k 
NS = K1 - 1 

no 18C HN = 1, M 

NT r NS « KN 

1 ?C WRITE (NIN ) (A(I0), 10 = NT, KORE, HI 
C 

C TEST IF THIS IS THE LAST PASS 

C 

IF (LAST) GO TO 2G0 
C 

C *■ - UE MOST NOW MODIFY ThF TRIANGULAR MATRIX TO REFLECT THE EFFECT OF 
C THE SOLUTIONS OBTAINED SO FAR (EC 21) 

C * ♦ NOTE. .LOCATIONS A(H TO A(NI-I) ARE NOW FREE TO USE 

C CALCULATE THE NEXT VALUES OF »NEL» AND •MREH • 

C 

NELCin r NEL 
KOLD = K 

, NEL = NEL - K 
NREH = MREH - K 
C 

CSSTl CALCULATE NEW K. B AND C (REALI WILL ALWAYS EE INTEGERS. 

C K KILL PE CALCULATED REAL AND TRUNCATED - - GOOD. 

C 

B = 1 ♦ 2*H 

C = 2«CK0Lb*l«+l ) - KORE) 

K = (-B + S0RT(B<'Y2 - ‘(♦^Cn/Z.O 
NROV = NREM “ K + 1 
IF IK ,LT. NREHI GO TO 19P 
LAST = .TRUE. 

NROW = 1 
K = NPEK 
190 NS r 1 

NT = NELOLD ♦ 1 
C 

C - - READ IN THE ROWS TO EE MODIFIED 
C 

DO 25C IB = 1, NRFM 
NT r NT - 1 

IF tIB ,LE. NROKJ go to 200 
NS = NS ♦ NN 
NT = NT NN 


SLVT16C 

SLVT181 

SLVT182 

SLVT133 

SLVTiat) 

SLVTias 

SLVT1S6 

SLVT1G7 

SLVT186 

SLVT169 

StVTl9D 

SLVT19I 

SLVT 192 

SLVT193 

SLVT199 

SLVT 195 

SLVT 196 

SLVTI97 

SLVT198 

SLVT 199 

SLVT2C0 

SLVT2Ci 

SLVT2C2 

SLVT2C3 

SLVT2C9 

SLVT205 

SLVT2D6 

SLVT2C7 

SLVT2C8 

SLVT2C9 

SLVTSic- 

SLVT211 

SLVT212 

SLVT213 

SLVT214 

SLVT215 

SLVT216 

SLVT217 

SLVT2ie 

SLVT219 

SLVT22C 

SLVT221 

SLVT222 

SLUT223 

SLVT229 

SLVT22E 

SLVT226 

SLWT227 

SLVT22S 

5LVT229 

SLVT23: 

5LVT231 

SLVT232 

5LVT233 

SLVT23«I 

SLVT235 

SLVT236 



non’ of^o' non 
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2C0 CALL GETT 

«MT, 

2, NN, A«NS1, 

1, AA21 


NP 

= N1 - 

1 




NF 

= NT - 

H - KHl 



NN 

= NN - 

KCLO 




DO 

N2 

220 MM 
= NF 

= 1, 


ORIGINAL 

PAGE IS 

NA 

NE 

= NP ♦ 
= NA 

HN 


OF POOR 

quality 

SUK = O.C 





DO 

210 10 

- 1, 

KOLO 



SUM = SUM 

+ AtN2l • A<NA) 



N2 

= N2 + 

1 




2 1C NA 

= NA + 

H 




N2 

= H2‘ + 

NN - 

1 




22D AfNSJ = AIV2) - SUM 


C 

C 

C 


- - WRITt THE modified HOW ON TAPE OR CONDENSE THE ROW 


NL = NT - K ♦ 1 

IF IIP .CE. NROUl GO TO 23C 

NF = NL ' KPl 

nni = nf - ms ♦ 1 

NN2 = NT - NL ♦ 1 

call SAVFtNOUTt *) , NNi MNlt AtNSl, 
GO TO 25Q 

23C NF r NL - HOLD 

no 2<l2 HN = NL, NT 
A<KF1 = AlHN) 

2«tO NF = NF ♦ 1 
250 ■ ■ 

rewind MT 

REWIND NOUT 


NK2, AiMlJJ 


- - SWITCH THE TAPES 


NT =• 

HT = NOUT 
MOUT = NT 

LOOP BACK THRU THE SOLUTION 


NL = NF 
GO TO IZC 

STAPT TO WRAP IT UP 


2&0 REWIND NIN 
N2 = N 

C * ♦ NOTE.. AT THIS POINT ALL LOCATIONS A(l» THRU MKOREl ARE FREE 
C 

DO 280 II' “ 1, NPASS 
RFAD (NINJ K 
N1-N2 - K *^1 
NS = N1 
NT = W2 


SLVT237 

SLVT23B 

SLVT239 

SLVTZAD 

5LVT2M1 

SLVT2A2 

SLVT2A3 

SLVT2N1 

SLVT245 

SLVT2A6 

SLWTZ47 

SLWT2‘IB 

SLVT2A9 

SLVT25C 

SLVT251 

5LVT252 

SLVT253 

SLVT254 

SLVT255 

SLWT256 

SLVT2S7 

SLV7258 

SLVT259 

SLVT26C 

SLVT2fel 

SLVT262 

SLVT26.3 

SLVT264 

SLVT265 

SLVTZ66 

SLVT267 

SLVT268 

SLVT 269 

SLVT27C 

SLVT271 

SLVTZ72 

SLVT273 

SLVT274 

SLVT275 

SLVT 276 

SLVT277 

SLVT278 

SLVT279 

SLVT2BC 

SLVT2E1 

SLVT2S2 

SLWT2B3 

SLVT28<I 

SLVT285 

SLVT286 

SLVT2P7 

SLVT2S8 

SLVT289 

SLV729C 

SL VT291 

SLVT292 

SLWT293 



o 
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C - - (?rA0 IN THE $OLUTI0NS 

C ; . , . 

' DC ?70 lO = 1, H 
Mr* r NT - NS ♦ 1 

C*LL eriKNIN,. l.NM, ATnS), 1, «/l2» 

MT = NT + N 
2 70 MS = NS + N 
2fl0 N2 = N1 - I 
. C 

WRITE THE SOLUTIONS ON TAPE 

NT = 0 

00 290 TO r 1, H 
N S = HT ♦ I 
' NT r NT ♦ N 

290 CALL SAVr(NH, 1 , ,N , N, AfNS>, 1, AA2> 

• CALL TIMEVt,AA2) 

BE = (AA2 - AAl J / 6C. 

WRITE _(6»3D0> Nt N, H, PB 

300 FOPMAT (AHDTHE 15, 2H X 15, 1 2H HATRIX WITH IN, 
IS SOLVED CIRECTLY IN F8.3, 9H PINUTFS, ) 

RETURN 
. • END 


SL VT29R 
■SLVT295 
SLVT256 
SLVTZ97 
SLVT29P 
SLVT299 
-SLV73CC 
SLV73C1 
-'SLV73C2 
SLVT3G3 
SLVT3CR 
SLV73C5 
SLVT3C6 
SLVT3C7 
SLVT3CS 
SLV73C9 
SLWTZIO 
SLVT311 
SLVT312 
SLV7313 

35H R1BH7 SIDES UASLVT31A 
SLV7315 
SLVT316 
SLV7317 
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c 

c 


c 

c 


c 


SUBROUTINE 


WRITE I6»10J 
10 rCRrAT flHl, 
1 

2 

3 


22 WRITE <6i30J 
3S FORMAT IlHC, 

STOP 

EKD 


TYPE«ie00t), IBAD) 


IGOODt IBAH 

•AN ATTEMPT HAS BEEN MADE TO READ A TYPE ‘.IPt 
• CARD* HOWEVER A TYPE *,I?t ' CARO WAS FOUND* 
•check over the input data CARO SEOUENCE FOB •* 
•COMPATIBILITY WITH DESIRED OPTIONS. *> 


•BECAUSE OF THE ABOVE ERROR, THIS RUN IS TERMINATED^ 


TYPFCCl 
TYPECOZ 
ITPECC3 
TYPE COR 
TYPFCCS 
TYPECC-fc 
TYPEEC7 
TVPECCP 
TYPECC9 
TYPECIC 
TYPE Oil 
HYPECIE 
TYPEC13 
TYPEEIR 
TYPEE15 


ORiGBsfAL Page T«j 
0^ POOR QtS 
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..StBftOUTlNt BET6HT { SUMDS, OS, Jl, JF, Iff, IFVORJ «ri6CCl 

^ . UEIGCC2 

DIKENSION DS fl», WF (11 WnoCCJ 

IF I IPVOR ,E0. 01 GO TO 20. IjEIGCC*! 

^ ' Jejgcos 

WRITE ( 6, ICDD I UEIGCDG 

ICCO FORMAT I IHl, •VORTICITY WEIGHTING FUNCTION r S/L*ll - S/Ll»//> WFIGCC7 

c weig:c8 

SI - 0.0 WE1GC09 

sni= r.c WEiGCic 

STN- l.D . WEICCll 

^ WE1GC12 

DC 10 J .. JI, JF WEI'GC1-3 

SD = 05 tJ) y <2.0 • StiKDSJ WEIGCl‘1 

S = SI ♦ SO WEJGC15 

SI = 5 *50 WFIGC16 

wr tji = <s - SDH * ISDN - si ueigcit 

13 CONTINUE WEIGCJ8 

^ WEIGCIV 

WRITE < 6, 1010 > ( WF IJl , J = JT, JF I WEI6C2C 

IDIC FORMAT ( IH , 6F18.6 1 WE16C21 

^ WEI6C22 

RETURN WEICC23 

WEISC2R 

2D CONTINUE WFI6C25 

DO 3C J r JI, JF UEIGE26' 

3D wr <J1 r l.C ’ WEI6C27 

^ WEIGC28 

WRITE ( 6, 1C2D 1 ^ WEICC29 

3C2C FOPWAT ( IHl, •VORTICITY WEIGHTING FUNCTION CONSTANt = l.O* //I UFIGC3C 


C 


RETURN 

END 


WEIGC31 

WE1SC32 

WEIGC33 
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FLNCTION 

XYFORM CXI, 

YI, 

DSl , 

SINI, 

COSl, 

c 

c 

1 

XJ, 

YJ, 

OSJ, 

SINJ, 

COSJ, BCt 


c This routinf actually calculates the induced veldcity 
c array elehlnts a and b. 
c 
c 

D/TA EJ,E2/169.0,11 . I 1 l/,EO, E Y/C . GCOl , D .0 1 / 


OX = XI - XJ 

DV = YI - YJ 

RCSQ z DX**? + DY**2 

nSJSO = 0SJ**2 

IF IROSO .L7. DSJS0*E1J GO TO IC 

USE FAR FIELD FORHULAS 
VX z 2.*OSJ/ROSO 
VY z VX*I>Y 
VX = VXOOX 

AC = ’VX*SIN1 + VY*COSI 
XYFORU = AO 

BO = VX+COSI 4 VY+SINI 
RETURN 

USE SEAR FIELD FORMULAS 
10 X = DX4C0SJ 4 DY*SIMJ 
Y = DY*COSJ - DXASINJ 
S = SIM4C0SJ - C0SI9S1NJ 
r r C05I*C05J 4 STNr#SINJ 




XYFOCCl 

XYF0CC2 

XYF0CC3 

XYFOCCR 

XVF0CC5 

XYF0CC6 

XYF0CD7 

XYF0EC8 

XYF0CC9 

XYFOCID 

XYFOCll 

XYF0C12 

XYF00i3 

XYF0C14 

XYFOGIS 

XYrocic 

,XYF0017 

XYF0C18 

XYF00J9 

XYF0C20 

XYF0C21 

XYF0C22 

XYF0D23 

XYF0C2«I 

XYF0G25 

XYF0C26 

XYF0C27 

XYF0C26 

XYFoC29 

XYF0C3C 

XYF0C31 

XYFOC32 
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ir fRoso .GT, o$j^s6*e:2>' 'go to 20 

C 

C USE EXACT FORMULAS 
XE = X/DSJ 
YF = Y/D5J ‘ ’ 

r6 = XB+*2 * YB**? 

RP = XB**2 - YB**2 ■ 

RI = RO ♦ XP ♦ C.25 
RZ = RO ” XR * 0.25 
C 

VX = +ALOG< (ROS0*DSJ*X+a.75*DSJS0 )/(ROS0-DSj>*X+0.25*nSJSe>i 

Y - v+nsj 

X = BOSO - 0.25*DSJS0 
VY = 2.0*ATAB2JY,XJ 
C 

GO TO 3 C 


t'sr multipole formulas 

23 AE = XftDSJ/ooSO 
EF = Y*nSJ/R0S<3 
ASO - X**2/R0S0 
ESC -DSJSO/'ROSO 

VX = 2,C*AE*(T.O ♦ (ASC - 0. 75 )*ES0/3 . 0 ) . 
VY = ?.0*PF#(1.0 ♦ {ASO - 0. 25 >*FS0/3.0 ) 


CONTIMUE 

XYFORH : -S*VX ■* C*VY 
BO = C>»VX ♦ S^VV 


■ RETURN 
END 


XYF0C33 
XYF0C3A 
XYF0C35 
XYFOC36 
XVF0C37 
XYF-0C38 
XYF0C39 
XYFOCtlG 
XYFOGAl 
XYFOCRZ 
XYF0CA3 
XYFOCRR 
XYF0CH5 
XYF0CR6 
. XYF0CII7' 
XYFOCRS 
XYFQCR9 
XVFOCSO 
XYF0C51 
XYFOG52 
XYFOC53 
XYF0C59 
XYF0CS5 
XYFnC56 
XYF0C57 
XYFOCSfi 
VYF0C59 
XYF0Q6C 
VYFOCei 
XYF0C62 
XYFO C63 
XYFO C6R 
XYF0C65 
XYF0C66 
XYF0C67 
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c 


c 

c 

c 


c 


c 


c 

c 

c 


c 

c 


SUERolJTiNt ELFORM <$UHD5> 

DIMENSION X(SDOJ,YC5DD>,XOI53Dl,yC(50CJ .DSI S CC» , S i c’soD J , CA f 5001 , 

1 iDPtlC), INL<1GI, IFLCIOI, NLClOl, LIFTCIC>» IBHFCIOJ, 

2 -TSAVUIO* ISAVZIlOlf ISAV3I1D>« TT ITLE C 7>, 

3 BTITLEUO, 7J, SUKDSUDI 


ELFOCC 

ELFOCO; 

ELFOCO: 

ELFOCC' 

ELFOCC! 

ELFOCCi 

ELFOCC' 

ELFOOCi 


CCHMOfJ /ELOATA/ XO, VO, DS, SA, CA, COrVISOOJ. DL(50D> 
COKMON/eCOE'^S/ liF ( 5 30 > 


COMMON /FILFln/ IFl, TF2, IF2 . IFR, IFS , FF6 
1 IFIC, IFll, IF12, IF13, IF1<I, 1F15, 1F16, 

COMMON /PFLAG/ IDB, INL, IFL, NL, LIFT, IBHF 
1 ISAVT, BTITLE, IBT, IBST 

Z .TBPTOT, NELTOT, ITRBIIO, INH 

3 IBOIlCI, LIFTOT 

M .IPRBdOJ, TFST«10), ISECilS), 


ELFOCK 
ELFOCi; 
ELFOCi; 

, IF7, IF8, 1F9, ELFODi; 

IF17, IF18, IF19, IF20ELFOC1‘ 

ELFoCi: 

, ISAVl, ISAV2, 


NlOJ , CHORDBllDl , 
FTITLEUSI, IPVRtlO 


CCMHON /GEOMD/ X, Y 


ELFOCK 

ELFO011 

ELFOCK 

ELF0015 

ELF0C2C 

ELF0C2I 

ELF0C2J 

ELF0C2’ 


DATA TBHAX,MAXEL/ ID, SOC/, DR/1.79S32925E-2/ 

1 , EPS/1. CE-7/ 


ISAVU = TF8 


ELF0C2‘ 

ELF0C2E 

ELF0C2f 

ELF0C2-i 

ELFOCEf 

ELF0C2«; 

ELF0C3C 

ELF0D31 

ELF0C32 


or POOK QUALiii 
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c 

c 

C READ BODY TITLE AND CONTROL CARD 
10 ITYP -- i 

READ J5.2CI ID, ISV', ILIFT, TTITLF ' 

1 .IPARA, IFIRST, ISECND ’ 

2 »ITR, INORP, IBOD, IDOLO, IPVOR, LAST 

3 ,ITVPE 
IFIRST - C 

ISECND = C ■ ■ 

IPARA - L 
C 

?D FORKAT C3tIl,2X), 1X7AR, -SX9M 1 ,2X ) IXIl! 

IF (ITYPE .NE. ITVPJ CALL TYPEflTVa, ItYPEJ 
C . ' . 

C PEAT- IK COORDINATE Tft A NSFO^'KA TIO N CAPO' IF REQUIRED 
ITYP = 2 
CHORD :r c.D 

IF JITR.EO.C .OR, ITR.E0.2 .OR. ITR.EO.Rl 60 TO 4 C 
READ I5,3C» CHORD, XKULT, YHULT, DX, DY, THETA, XTO, Y70, ITYPE 
?D FORMAT l7tFB,D,IX), F6.C, ID 

IF niYPE .ME. ITYP) CALL TYPEIITYP, ITYPE) 

C 

C DETE RHINE STORAGE SEQUENCE 

1F(IPOO.LT.1.0R.1POD.CT.6) GOTO R 9 
BE CO TO (6:,70,jaC,19D,lBC,?10I, T60D 
C 

99 WRITE (6,50) IBCD 

BC FODHAT (1H1,»THE OPTION IPOD = ‘,I3,» IS NOT IE 6 I TIHATE. ' ) 

GC TO &9u 
C 

C NEW CEOrXTRY, START A NEW SEOUENCE 
6C lET r 0 

IFST = C 
IPS r C 

■ REWIND ISAVU 

C 

C new 6E0HCTRY, CONTINUE SEQUENCE 
7C IPT = IbT ♦ 1 

IF (I»T .GT. 10) GO TO 8D 
IE = IGT 
ItKFdP, ) = 1 
GC TO 25C 

BO WRITE (t,9D) lET, IRMAX 

90 FORMAT UHlr ’ATTEMPTEn TO LOAD THE * , 1 2 , ’TH ,60D Y . 

1 'ALLOWABLE HUPBFR OF BODIES IS ',13) 

6C TO 69C 
C 

C NEW GEOMETRY, OLD SEOUFNCE 
100 IF (IFT .LE. 0) GO TO 120 
DO lit It = 1,IPT 
IF tlDBtlB) ,E0* TDOLD) 60 TO 2<)D 
110 CONTINUE 

12C WPITL (6,13?) lEOD, lOOLD 

lie FORMAT (IHlr'OPTCON IPOD = GEOMETRY WITH ID = ', 13, 

1 ’ NOT PREVIOUSLY LOADED,*) 

GO TO 690 


ELF0C3 

ELF0C3 

ELF0C3' 

LLF0C3. 

ELF 0 03 

FLF0C3- 

ELF0C3' 

ELF0C9 

ELF0C9 

ELF0C9: 

ELF0C9: 

ELF0C9' 

ELF0C9' 

ELF0C9{ 

ELF0C9: 

ELFCC9' 

ELF0C9' 

ELF0C5C 

ELF0C5! 

ELFOC52 

ELFOCEI 

ELFo CS9 

ELF0C5H 

ELF0C5F 

ELF0C57 

ELFOCBE 

ELF0C5S 

ELF0C6C 

ELFCC61 

ELF0C62 

ELFCE67 

ELFOC69 

ELF0C6S 

ELF0C66 

ELF0E67 

ELFOC-68 

ELFOl:69 

ELFOC70 

ELF0C71 

ELF0072 

ELF0C73 

ELF0C79 

ELF0C75 

ELF0C76 

ELFOC77 

ELF0C7S 

ELFOC79 

ELF0E8C 

ELFOCei 

ELF0C82 

CLFOCss 

ELFOC89 

ELFOCeS 

ELF0C86 

ELF0C87 

ELFOtse 
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c 

C PLP CLOHFTRY, OLD «OR COMtWUF) SEOUENCE 
m3 ir II»=T ,LE. D> 60 70 120 
00 15D IB = 1 tIBT 

IF CIDE(IB) .E<5. TDOLO) GO TO 16C 
1% COKTINUC 
GO TO 1?0 


C 

C 


DESIPE OLD geometry. IP 
160 ir rlSAVKIE) .LT. 0 
IBS r ISAVsflB) 
REWIHP ISAVU 
00 ITT I = I .IBS 
LX r ISAV2<TES) 

CALI GETTITSAVU, 3, 
170 CONTINUE 

IF flEOD .EO. 5) GO 
IBHFilBJ = 2 
GO TO 36P ' 

IFT = IPT + 1 
IF (IPT .GT. lOJ GO 
IB = IPT 
IPMFnBl = ! 
ISAVMIB) = IDOLD 
ISAVSIIBJ = -1 
GO TO 36T 


SAVED. RETRIEVE 
) GO TO IRQ 


LX, X, LX, Y) 

TO isy 


to &a 




/age is 
^^ALJTT 


19L write (6.20PJ lEOD, IDOLD 

200 FORMAT (IHl, ’OPTION IBOO = ’,15,*, GEOMETRY WITH 'ID 
1 ’ NOT PREVIOUSLY SAVED. •» 

PC TO 6R0 


C 

c 


c 

c 

c 


DELETE AN EXISTING BODY 
ZIE IF Ur-T .LF. D) GO TO 123 
DO 22P IP, - I.IBT 

IF (IPPTIB) .EO. IDOLD) GO TO 23C 
22C CONTINUE 
270 IPMF<T01 = -1 
GO TO fcCO 

NEW FEOMETRY TO BE READ IN. 

2NC IPMF<1B> = ? 

POSITION SAVE UNIT IF NEW GEOMETRY TO PE SAVED. 
25C ir (IFV .EC. 31 GO TO 273 

IF (IPS .EO. IBSn GO TO 273 
DO 267 IT = IBS,IBST 
LX : lSAV2fIT) 

267 CALL GETTJISAVU, 3, LX, X, LX, Y) 


270 CONTINUE 


’,15, 


C 

C CHECK IF CLLTP-SE To PE generated 
IF (ITR ,CiT. 11 GO TO 320 
C 

C DATA CN UNIT 5. X-COOROS FIRST 
t = D 
ITYP = 3 

2ft0 READ (5,2901 (XIL+Tl, 1=1,6), INO, ISTAT, ITYPE 


ELFOE89 
ELF0C9C 
ELF0C91 
ELF0C92 
ELF0C93 
FLFQC99 
CLF0t95 
ELF0E96 
ELF0E97 
ELF0C96 
ELF0E99 
ELFOICC 
ELFO lEl 

ELf 0IC2 

ELF01E3 

ELF0IG9 

ELF01C5 

LLF01C6 

ELFOlCt 

ELF01C8 

ELF0139 

ELFOllt 

ELFO in 

ELF0112 

ELF0U3 

ELFOIX*! 

ELFons 

ELF0116 

ELF Oil 7 

ELF0118 

ELF0119 

ELF012C 

ELF0121 

ELF0122 

ELF0123 

ELF0124 

ELFO 125 

ELF0126 

ELF0127 

ELF0128 

EUF0129 

ELF013L 

ELF 01 31 

ELFO 132 

ELF0123 

FLF0134 

LLFO 135 

ELF0136 

ELF0137 

ELFO 13b 

ELFO 139 

ELFO me 

ELFOlOl 
ELF0192 
ELFP143 
ELFO 144 
ELFO 145 
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29i rPRHAT <6^10. 0, 2X11, 3X11) 

ir fITYPE «NE. ITYP) CALL' TYPEflTYP,' ITYPE) 

IP 1 1^0 aLE* C aORa I NO aGT #61lN0— 6 *• 

L - L ♦ INO 

' IF (ISTAT .EO. 0) fiO TO 260 
Lx = L 
C 

C NOB READ IN Y-COORDS 
L - C 
ITYP = H 

3C0 RFAO C5,29QJ IY{L-H), 1=1, 6>, INO, ISTAT, JTYPE 
ir (ITYPf .NE. ITYP) CALL TVPFCITYP, ITYPEJ 
IF UNO aLE, s .OR. INO .GT. 6) INO = 6 
L = L + INO 

IF ITSTAT .FQ. C) GO TO 3DD 
LY = L - 
C 

C CHECK FOP INPUT CONSISTENCY 
IF ILY aFO. LX) BO TO SB!: 

VRITE C6,310> LY, LX 

3i: FORPAT UH1,‘THF NUMBER OF Y-COORPI NATES (*,I3,*) READ DOES *, 

1 ’NOT EQUAL THE NUHBFP OF X-COCRD INATE F RE AD . { • , 1 3 , • ) > 

C-C TO 6'ir- 
■ C 

C FLIIPSE TO EE GENERATEH. READ IN DEFINITION CARD, 

37C TTYP - S 

READ »5,330> LX, ELPSTH, ITYPC 
33G FORMAT 12X13, 5XF10.5, 51X11) 

IF tITYPE .NE. ITYP) CALL TVPEtlTYP, ITYPFJ 
1TB = ITR - 2 
IF IITR .NE. 1) ITR = 0 
C 

DAKFLE = G.2831P53072/ 1 LX - 1) 

ANCLE = DANDLE 
DO 3a: I = l.LX 
. ANCLE =r angle - DANGLF 
Xfl ) r cost ANGLE) 

3<-Z Ytl) = SIN't ANGLEI+ELPSTH 

c 

c 

C SAVE THE BASIC GEOMETRY IF REOltESTED 
35D ISAV3IIP) = -1 

IF (ISV .EO. D) GO TO 360 
C 
C 

IPST = IBST +1 
IPS = IBST 
IJAVKIB) = ID 
ISAV2CIBS) = LX 
ISAV3tIB) = IPS 

CALL SAVEtlSAVU, 3, 1, LX, X, LX, Y) 

C 

36C CONTINUE 
C 

C HRTTF OUT BASIC GEOMETRY DATA 
IP : 1 


ELFCI46 
ELF01U7 
ELF0I4E 
ELF0149 
FLF015E 
ELFOIBI 
ELF0152 
ELF0153 
ELF0154 
ELFOI55 
ELF0156 
ELF0157 
ELF0158 
ELF0159 
ELF016C 
ELF0161 
FLF0162 
ELF0163 
ELF016JI 
CLF0165 
ELFOlfcfc 
)£LF0167 
ELF0166 
ELF0159 
ELF017C 
LLF0171 
ELF0I72 
FLF0173 
ELF0171I 
ELF017S 
ELF0176 
ELFO 177 
ELF017E 
ELF0179 
ELFOleC 
ELFO 181 
ELFO 182 
ELF01E3 
ELFOlPR 
ELFO 185 
ELF0186 
ELF0187 
ELF0188 
ELFOIPP 
ELF019C 
ELFO 191 
ELF0192 
ELFP193 
ELFP194 
FLFOIRS 
FLF0196 
FLF0I97 
ELFOloe 
ELF0199 
ELF02CE 
ELF02C1 
ELF02D2 
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CALL PRIMT6 UP, LX, ID, TIITLE) 


TRAHSFOCH COORDINATES IF REoOEsiED 
IF tITR .EQ. 1) BO TO 370 
IF f I norm .FQ, D) go to 410 
XPULT = 0.0 
YKULT = D.O 


OUIGTNAI. 
OF POOB 


QUALfCYi 


XTO r D.O 
YTO - D.O 
THETA = D.C 
DX = r.c 
DY r C-C 


37C CONTINUE 


IF 

lAPSfXMULT) 

.LT. EPS) 

XKULT 

IF 

(APStVHULT) 

.LT. EPS) 

YKULT 

XSF 

= XKUL7 



YSF 

= YHULT 



ir 

tlNCRM .CQ. 

0) 60 TO 

39C 


l.Z 

1.0 


IF (APSJCHORDJ .GT. EPS) GO TO 3fi0 
CHCPD = RKAX (LX, X, V, THAX) 

3fC- XSF = XSr/CHORO 
YSF r YSF/CHORO 


3^3 COST = COS (THETA4DR) 

SINT r SIK(THETA#Dr) 

no 4CC r = i,ux 

XTOC = X(I) - XTO 

YTOD : V(1 ) - YTO 

XU) = tXTO •» XTOD*COST - YT00*SINT * OX)*XSF 

Y<I) = CYTO ♦ YTOD*SINI ♦ YTOD’+COST ♦ DY)AYSF 

43C continue 


FCKH ELEMENT DATA FOR THIS BODY. 

DEFINE S70HAGF LOCATIONS AND CROSS CHECK 
4 1C 1ST = C 

IF tlB .67. 1) 1ST = IFUlP-1) 

LXl = LX-1 

C FIRST CHECK AGAINST EXCEEDING MAXIHUH STORAGE 
IF fdST ♦ LXn .LE. KAXEL) GO TO 43C 
UPITE (6,420 LXl, TD, KAXEL 

420 FORKAT tlHJt'THE NUMBER OF ELEMENTS I*, 14,') FOR BODY ID = *,I2, 

1 * WItL EXCEED ALLOWABLE STORAGF (’,14,’) WHEN aDOEP 

2 ’TO THE DATA SET.’) 

GO TO 6«C 

C 

C NOW, IF USING old STORAGE SEQUENCE, CHFCK THAT KCW BEOKETRY 

C DOES NOT RON INTO THE NEXT BOIY. 

430 IF tIP .EO. IBT) BO TO 45D 

IF fUST ♦ LXl) .LT. INL(IB+1)) GO TO 46C 
write (6,440) Lxl, ID, NLtIKI, IDOLO 

440 FORRAT C1H1,»THE NUMBER OF ELEMENTS t’,l4,») FOR THE NEW BODY ’, 

1 *10 = ’,12,’ EXCEEDS THE hUHPER (’,14,’) FOR THE BODY *, 

2 ’IT IS REPLACING, JdOLD = ’,12) 


ELF0203 

ELF02C4 

ELF02D5 

ELF02C6 

FLf0237 

ELrC2G8 

ELF02G9 

ELF021C 

ELF0211 

ELF 0212 

ELF0213 

ELF0214 

ELF0H15 

ELF0216 

ELF0217 

FLF02ie 

ELF0219 

ELE022C 

ELF0221 

ELF0222 

ELF0223 

ELF0224 

ELF0225 

ELF0226 

ELF0227 

ELF0228 

ELF0229 

.ELF023C 

FLF0231 

ELF0232 

ELF0233 

ELF0234 

ELFC235 

ELF0236 

ELF0237 

ELF023B 

ELF0239 

ELF024C 

ELF0241 

ELF0242 

ELF0243 

ELF0244 

ELF0245 

ELF 0246 

ELF0247 

ELF0248 

FLF0249 

ELF025C 

LLF0251 

LLF0252 

ELF0253 

FLF0254 

FLF0255 

ELF0256 

ELF0257 

ELF02SE 

ELF0259 
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GC TP 6«ib 


'ISC IKLfin) r 1ST + 1 
IFL riPJ P 1ST + Lyl 
<162 NLCI8) = LXI 

tlFTilBI = ILIFT 
IDE C1P» = ID 
ITRP(IB> = ITR 
iNKPliei = INORH 
IPDIIPJ = TBOD 
CK0PDP(I5> r CHORD 
IPRPIIBJ = IPARfl 
IFSTIIBI = IFIRST 
IFEC«IB) = ISECND 
IPVRdPJ - IPVOR 

PC «7C I ~ 1»7 

i|7-D BtlTLr<IB,I) = TTlTtElIl 

CALCULATf FLFHFRT DATA AND PRINT RESULTS. 

DC lie? I - 2, LX 
1ST = 1ST 1 

XO(IST) = 0.5*CXITI 4 Xd-lJI 
YOdSTl = 0.5*lydJ ♦ y(i-in 
XD = Xd) - X(I-l) 
vr. r ydi - yci- 1 ) 

DLdSTl = S0RT(XD + *2 ♦ YO««2 1 
DSdSTl = DUIST) 

SAdSTl = YO/DLdST> 

CAdSTI 3 XD/DLdST) 

CURVdST) = S.C 
tiSj CONTINUE 

• I] = INL (IS T 
12 = IFLdP) 

PRINT element data 
563 I = 1 

WRITE I6,613> IDR dBJ.TTITLE 
WRITE <6,623) 1, Xtl), YCI) 

LCNT z 1 
SOpESJIB) = 0,0 
ALPHl = C.C 
DO 5Sr rST = 11, 12 
1 = 1*1 

IF (LCNT ,LT. 491 GO TO 570 
LCNT = C 

WRITE <6,6101 TOP dB),TTITLE 
570 CONTINUE 

5UHDS<IB) r SUMDSdPJ * DSdST) 

ALPHA = ATAN2ISA CISTJ, CA<1ST))/DR 

ALPHl = ALPHA 

CI;RV2 = 2.0*CURVdST) 

WRITE <6,630' XO<IST), YOCIST), DKISTI, 
1 SAdST), CAdST), CJPV2 


ELF026C 

ELF0261 

ELF0262 

ELF0263 

ELF0264 

ELF0265 

ELF0266 

ELF0267 

ELF0268 

ELFfJ269 

ELF027G 

ELF027 1 

ELFC272 

ELF0273 

ELF0274 

ELF0275 

ELF0276 

ELF0277 

ELF027f 

ELF0279 

ELF0280 

ELF028 I 

ELFD282 

ELF0263 

ELF0284 

FLF0285 

ELF0286 

ELF0287 

ELF02PP 

ELF0289 

ELFC29C 

ELF0291 

ELF0292 

ELF0293 

ELF0294 

ELF0295 

ELF0296 

ELF0297 

ELF02OS 

ELF0Z99 

ELF03CC 

ELFP3C1 

ELF03C2 

ELFO 3C3 

ELF03C4 

ELF03CS 

ELF03C6 

ELFD3C7 

ELFO 3C8 

ELF03C9 

ELF031C 

ELF0311 

ELF0212 

ELF0313 

ELF0314 

FLF0315 

ELFC316 


C5<IST) 
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ORIGINAL 
OF POOR quality 


c 

c 


c 

c 

c 


c 

c 

r 


bF.ITE (e,,62CI I, XIII, vnt 
LCNT r LCNT 2 
5 SC CONTINUE 


WFITF <6,E9C1 SUh*DSlIP) 

590 F0RK/LT(1HC, T13, ‘SUHrS = *, FJ2.&J 


CHECK ir KO^E BODIES TO PE INPUT 
600 IF IL*$T .NE. 1) 60 TO K 


WRITF CUT PODY SUMMARY 
CALL PfiNTEL 

C7C TO 66C 


610 FORHAT ClHl, 2DX , 'ELE KE»jT COOPDINAT 

1 *, 7«<f//TlP,»I», T22, 

2 T73t *DS* t T86, • SINIALFI *, 

3 ■ T121 .'CUPVATURF'//) 

62C format- tlH , 6XI3t 2tSXri2.6»l 
63C FCKMAT < IH , 9X , r<=XFl2.6)) 

6AC KFTTE (t»fc5?) 

65:, FORMAT «tHC, »e£CAUSE .OF THE APOUE 
STOP 


662 COMIFUE 

RntlRAJ 
E FX 


ELF0317 

ELF03ie 

ELF0319 

ELFC32C 

ELF0322 

ELF0322 

ELF0323 

LLF032<f 

LLF0325 

ELF0326 

ELF0327 

ELF032P 

FLF0329 

FLF033C 

ELF033I 

ELF0332 

EEF0333 

ELF0339 

ELF0335 

ELF0336 

ELF0337 

E DATA FOR BODY ID = •, 12, ELF033e 

X<I)*, T39,»Y(I>», T56,*DL*. ELF0339 

TICS , 'COS (ALE) S ELF03RC 

ELFC’ttl 

ELF0342 

ELF0343 

ELE0394 

ELF0345 

ELF0346 

ELF0367 

FRROR, THIS RUf. IS TERHI MATED • lELF 034f 

ELF0349 

ELF03SC 

ELF0351 

ELF03S2 

ELT035S 

ELF03S4 

ELE0355 
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c 

c 


c 

c 

c 


c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 


SIBROUTINE FILES 

C0«^'0^ /FILFID/ IFILEU IFILE?, IFILE3, 1F1LE4, IFILE5, 

1 IFILEt, IFILE7, IFILE8, IFILE9, IFILID, 

2 IFILll, IF1L12, lriL13» IFILIO, IFIL15 

3 ,IFIL16, IFIL17, IF1L18, IF3L19, IFIL2(. 

TFILE2, ANr IF1LE3 ARE TEHPORAPY SCRATCE UNITS USED IN 
IFILEI - IB 
IFILE? : 2 
. iriLE’ : 3 

IFILE4 IS INPUT FILE FOR RIGHT STOE KATBIX IN OUASI 
IFIIEM = 4 

iriLES, IFILEt, AND IFILET ARE STANDARD SYSTEM I/O 
IflLES = 5 
IFILEf- = t 
IFILET = 7 

IFILFE Ir INPUT GECMETRY SAVF UNIT 
IFILE” r e 

IF1LC9 IS PATRTX A (I, JJ 
IFIllD IS matrix B(I,J) 

1FILE9 = 9 
IFILID r ID 

IFILU is induced normal VELOCITY N(I1, 

IFIL12 IS induced tamsential velocity tiij 
IFILI! = 11 
IFIL12 - 12 

IFILU IS SPECIAL P TOWS FOR LjFTINS BODIES, BL Ui JJ 
IFIL 13 - 13 

1FIL14 contains SIGHA SOLUTIONS ON OUTPUT FROM CUASI 
IFIl 14 = lit 

IFILIS CONTAINS BOTH UPPER AND LOWER TRlftNPULAR MATRICES 
ON OL'PUT FROM OUASl 
' IFILIE r 15 


FILECCl 
FILECe? 
FILECC3 
FILEcr4 
FILE CC5 
FILE CCt 
ODASI FILFCOT 

FILECC9 
FILECIC- 
FlLEOll 
FILE CI2 
FILEC13 
FILEC14 
FILECIS 
FILEC16 
FILE017 
FILEOle 
F1LFC19 
F1LED2C 
F1LEC21 
F1LEC22 
FILEE23 
FILEC24 
FILFC25 
F1LEC26 
FILEE27 

ftr j2d 

flLEC29 

FiLLcic 

FILEC31 

FILEC32 

FILEC33 

FILEC34 

FILEC35 

FILFC36 

FILEC37 

FILFC36 

FILEC39 


IF1L16 IS USED FOB OFFBODY CALCULATIONS. /EIDAIA/ AND /GCOEFS/ 
ape STORED (SEE SUPROUTTNE ClFOPHJ. 

IFIL16 : 16 


FILEC4C 

FILEC41 

FILEC42 

FILEC43 


IF1L17 IS USED TO SAVE SURFACE COORDS IX, Y, ANC DS I AT WHICH 
THE FLOW VELOCITY IS ASSUMED TO ACT. 

IFILiT = 17 


FILE C44 
FILEC4E 
FILEC46 
FILEC47 


IFILE 18, 19, AND 20 HAVE NOT PtFN ASSIGNED. 


FILEC48 

FILEC49 


RETHBJ3 

END 


FILE CSC 
FILEE51 
FILF252 
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SllBPOUTI^^ 

QUASI (A 

vNn«MD»KDf 



c 






c 






c 


***/ 



4 

c 


* * /* 

4: 

* 

♦ 

c 


* / * 

4 

♦ 44 

4 

c 

4 

*/ * 

4 

♦ 

4 

c 

♦ 

/*** 

* 

♦ 



*♦♦/ 
* /• 
* / * 
*/ * 




♦ 

****** 

* * 
*** 

* * 


c 

c 

c 

c*** 

c*** 

c*** 

c*** 

c*** 

c*** 

c 


direct 


MATRIX 


SOLUTION 


MATRIX WILL BE PUT 
HAND SIDES are 


ON 

INPUT 


ON 


♦ ♦•LTAPL IS THE* TAPE TME L<I,J» 

♦♦«RMSTAP IS THE TAPE THAT THE RIGHT 
IfHEGER RHSTAP 
***NATAPE IS A SCRATCH TAPE 

*«#THE TRIANGULAR MATRIX EXCEPT FOR THE LAST M ROWS WILL BE KEPT 
**«TApE MK 

+++THE LAST K ROWS OF THE TRIANGULAR MATRIX HILL BE PUT ON THE 
♦4*ltap£ behind the rhs matrix 

COKPlEx A, SUM 
DIKENSION A J KD ) 


LOGICAL 

LOGICAL 

LOGICAL 


JPASSl 

LASTRS 

LAST 


CALI TIKEVIAAl) 
CONTINUE 
REWIND LTAPE 
:: NAT 
KATAPC 


C IF THERE ARE NO 
NL. r )GO TO 2C 


NATAPE 
REWIND 
N : NP 
KPRE = KP 
C*** * RHSTAP : 

IFIFHSTAP 
MRHS = ? 

GO TO 3E 

?r- RFWIKO RHSTAP 

RFADtPHSTAPJMRHS 

’C M = KORE / N - 1 

KMAX - MINDIKRHS.M) 
NFM = N + MMAX 
IFt (I*NPM) .GT, KORE 
K = 0 
NPM F N 
HT = «K 
RFHINO HT 
NIN = NI 
REWIND NIN 
NOUT = NO 
REWIND NOUT 
MPl = M ♦ 1 
NN r N 
NFL = NPK 
NLCNT = C 


RHS TO BE processed THIS RUN 


IRETURN I 


CUASCCl 

OUASCC2 

OUASCC3 

OUASCQH 

CUASCC 5 

CUASC06 

CUAS3C7 

0UASEC8 

0UASCC9 

OUaSCIC 

cuAscn 

0UASC12 
0UASC13 
QUASQIR 
0UASC15 
ONQUASClfr 
QUASC17 
OUASCia 
QUASC19 
QUASC20 
0UASC21 
QUASC22 
CUASC2S 
OUASCZR 
QUASC25 
0UASC26 ■ 
0UASC27 
0UASE2F 
QUASC29 
0UASC3C 
OUASC31 
OUA5C32 
QUASC33 
QUASC3R 
OUASC3S 
CUASC36 
QUASC37 
OUAS238 
0UASC39 ■ 
CUASCRC 
0UASC41 
OUASCH2 
QUASC43 
OUASCmi 
CUASC45 
QUASC46 
OUASC47 
OUASC48 

QUASC49 
QUASC5C 
CUA SCSI 
CUASC52 
0UASC55 
QUASCS4 
CUASC55 
0UASCS6 
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c , - , 

C -- -.'CALCULATE THE KAX7HUH NO. OF BOtfS, *K •' 

C 

»lu K = IKORE - NED / NEL . . • 

C 

C — - test to -see IE THE REST OF THE MATRIX WILL -FIT' IN CORE 
C - • 

LAST = K .Gr. NN . ■ „ 

IFl .K'OT. last > BO To 5D 
K = NN 

B = 3 * MKAX*2 
C = 2 * «1 + MHAX - KOBE ) 

, KTEKP r c -B + SORTIS**? - 4*C1 ) t 2 ' ■ ■■ 

IFIkTFKP .GF. k')60 to 50 
C 

C*** * UT PU5T REDUCE THE FINAL K 

C ■ ' 

K - KTEHP 
lAS-T = .FALSE. 

C 

C BEAD *K’ ROWS OF THE AUGMENTED *A» MATRIX 

C 

5D NT = : 

PC 6C IE = 1, K 
NS r NT + 1 
NT r NT 4 NFL 

6C CALL GFTTtNIN, 1, NEL, AfNSJ, 1, AA2) 

C 

^ ~ -'.CFLCK TO SEE IF UF WERE UNLUCKT ENOUGH TO END UP WITH ONLY ONE 
C 

IE <K .EC. 1» 00 TO 133 
C 

c »K* IS greater than SO WE CAN START THE T''TA N CUL A RI7 ATION 

C ‘ ' ' 

NELPl = NFL 4 1 
NS r - nEL 

NFLP2 = NELPl 4 1 
C 

C - - FORE THE ’TPAPE2,0TDAL • ARRAY <6) 

C 

' DO 70 IB = 2, K ■ 

NP.= NELP2 - IB 
NS ‘r NS 4 NELPl 
NT = NS 

DO 7C 10 = IB, K 
NT r NT 4 NEL 

HN r NT 

NP r NS 

AJNTI r AtNT) / A(NSJ 
DO .70 NF = 2, MP 
■MN = MN 4 1 

HP = N9 4 1 

7D AtHNJ = ACHN» - ACNTl # A(NB) 

C*** ***UR17E PART OF THE LHATRIX ON LTAPF ITRIANCULAR PAPT> 

WRITE (LTAPEJK ' 

NL'CNT = NLCNT 4 i 
LPEE =NELPi 


0UASC57 
QUASC58 
OOASC59 
0UASC6C 
OUASCSl 
OUASCt-2 
0UASC63 
0UASC64 
QOASC65 
0UASC66 
0UASC67 
0UASC68 
0UASC69 
0UASC7G 
0UASC71 
0UASC72 
0UASC73 
0UASC74 
OUAStTS 
0UASC76 
0UASC77 
CUASCTE 
0UASD79 
0UASC8C 
OUASCSl 
0UASC82 
QUASCei 
CUASC84 
ROV0UASC85 
OUAsC-eo 
0UASC87 
gUAS C8£ 
CUASC89 
CUASC9C 
OOASF91 
C0ASC92 
0UASC93 
0UASC94 . 
CUASE9S 
0UASE96 
OUAS097 
0UASC9B 
CUASC99 
OUASICC 
OUASICI 
QUAS102 
0UAS1D3 
OUAS 104 
CUAS1C5 
0UAS136 
• OUAS107 
0UASIE8 
00AS1C9 
CUASllC 
CUA5111 
■ 0UAS112 
CUASI13 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


KM K - a 
DO 00 IP = l.KHl 
LEND - LBEG ♦ JB~ 1 

CALL SflVECLTAPE, It IB, IP, AUPE6», 1, AA2I 
PC LPE6 r LBE6 ♦ NN 

- - HPITE THE ’TRAPEZOIDAL* HATRIX OM TAPE 

NT = C 
NP = NEL 
NS = - NEL 
DC 9C 10 = 1, K 
NS = AS + nELPI 
NT = NT ♦ NFL 

CALL SAVE<>*T, 2, NP, NP, A(NSt, 1, AA2I 
90 NP = NP - 1 

If tLASTi 60 TO 130 

NP = HP - H 

NP = KORr - nEL ♦ 1 

read ANOTHER ROW 

or 12C 10 = 1, NP 

CALL GETTtNIN, 1, NEl, A»NS), 1, AA2) 

HCDIFY THIS ROW BY THE •TRAPEZOIDAL* ARRAY 

NT = 1 
KN = NS 

DC lie IF = 1, K 
NE r NT 
NF = “N 4. 1 
A (HN) r AtHNl / ATNT5 
DC ICC KN = NF, MORE 
NP = NP + 1 

ICO A<NN) = A<NNJ - A<MN) * ACN'B) 

Bf. = Nf 

110 NT = NT + NELPI 

- - WRITE THE modified POW ON TAPE 

** ***WRITE REST OF LHATRIX ON LT APE 
KNKl = HK - 1 
NKl = HNKl - NS ♦ 1 

CALL SAVECLTAPE, 1, NNl, NNl , A ( NS » , 1, AA2 > 
Mrl = KORE - MN 1 

12C CALL SAVEINOUT, 1, NNl, NNl, A(KN), 1, AA2) 
REWIND NOOT 
REWIND NIN 

SWITCH THE TAPES 

NT = NIN 
NIK = NOUT 
NOUT r NT 

RE-CALCULATE ROW LENGTH AND LOOP PACK 


0UAS114 
QUAS 115 
OUAS 1,16 
OUAS 117 
OUASllF 
CUAS 119 
QUAS12C 
0UAS121 
0UAS122 
OUAS 12 3 
0UAS12R 
CUAS125 
OUAS 126 
OUAS 127 
0UAS12E 
0UAS129 
CUAS13C 
OUASl’l 
OUAS 132 
OUAS 133 
0UAS13<! 
OUAS 135 
0UAS136 
0UAS137 
0UAS136 
OUAS 139 
QUAS lAC 
OUAS 141 
QUAS142 
QUAS143 
OuAS 144 
QUAS 145 
OUAS 146 
0UAS147 
CUAS 14S 
0UAS149 
OUAS 15C 
0UAS151 
0UAS152 
0UAS1S3 
eUAS154 
OUAS 15E 
0UAS1S6 
0UAS157 
OUAS 15E 
0UASIS9 
0UAS16C 
QUAS161 
CUAS 162 
QIJAS163 
OUAS 164 
QUAS165 
0UAS166 
0UAS167 
OUAS 16f 
OUAS 169 
QUAS17C 
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c 

t 



ouAs m 


NFL = NEL - K • 



OUAS 172 


NN r NEL - M 



OUAS 173 


GO TO «(C 



CUAS17H 

c 




0UAS175 

c - - 

• PtWIKD fttl TAPES 



CUAS 176 

c 




OUAS 177 

1 3 : 

: PE«INP MM 



OUAS 17E 


REWINO MOUT 



OUAS 179 

c 




OUAS 18C 

1 HC 

; N1 = KOPE - K * H ♦ 1 



CUAS ISl 


REWIND LTAPE 

• 


OUAS 1B2 


REWIND HT 



QUAS1P3 

C**-4 

•♦♦CALCULATE THE NUMRFR OF COLUMNS TO BRINE OFF OF THE RHS 

TAPE CUASieN 


KTOTAL = C 



QUAS ISS 


K - MMAX 



CUAS 186 


1F(F .EO. 0)G0 TO S2D 



OUAS 187 

c*** 

♦♦♦HTOTALIS THE TOTAL NUMBER OF RHS 

COLUMNS ALREADY BROUGHT IN CUASiee 

15E 

! MtOTAI = KTOTAL * M 



OUAS 189 


LASTRS = MTOTAL.GE. KRHS 



CUAS 19E 


MTOtAL - KTOTAL - K 



QUAS191 


IF (LASTRSJH r MRUS - MTOTAL 



CUAS192 


MTOTAL = MTOTAL + H 



CUAS 193 

♦ 

♦♦♦BRING IN M COLUMNS OF RHS 



QUAS19<t 


KINIT = KORE - IH*M) 



0UAS195 


UNIT = KINTT 



OUAS 196 


MPEG = KIMIT + I 



0UAS197 


NFND = KINIT* N 



OUAS 198 


DC 1 6F J rl ,H 



OIIASI 99 


CALL GETURHSTAP, 1, N, A(NBEG), 1 

, AA2) 


QUAS2CC 


NPEG : NFND ♦ 1 



0UAS2C1 

16C 

1 NFNC = NFND * N 



CUAS202 

c*** 

♦♦♦BRINE IKL(I,J> MATRIX AND APPLY 

IT TO RHS 


Q0AS2D3 


MPEG = 1 * KINIT 



0UAS2C9 


NEND = 1 ♦ (M-1) ♦ N * KINIT 



CUAS2D5 


KSUM = □ 



QUAS2C6 


♦♦♦DO TRIANGULAR SECTION OF LMATRIX 



QUAS2C7 


, RFAD tLTAPFTK 



0UAS2C8 


♦ ♦♦KSUf* IS THE TOTAL NUMBER OF L ROl^S THAT WILL 


CUAS2C9 


♦ ♦♦EF READ AFTER THIS TRIANGULAR SECTION IS FIMSHCD 

QUAS213 


KSUM = KSUH + K 



0UAS211 


KMl : K - 1 



CUAS212 

c*** 

♦♦♦NCTF THAT KHl CAN'T BF 0 SINCE 

K CAN’T BE 1 

AND STILL 

HAVE SOMQOAS213 

c*** 

♦♦♦OH THE LTAPE 



QUAS21H 


DC 23C I = l.KHl 



0UAS215 


NFEE r NSE6 + 1 



CUAS216 


NEND - MEND + 1 



QUAS217 


♦♦♦READ 1 ROW OF LCI,d) FROM LTAPE-- 

-K-1 TIMES 

EACH TIME 

QUAS2ie 

c*** 

•♦♦STARTING WITH L«l) 



QUAS219 


CALL GETTTLTAPEt 1, I, A, 1, AA2» 



QUAS22C 


JCNT = -I 

* 


0UAS221 


♦♦♦REDUCE THE RHS PY GOING ACROSS A 

SOLUTION ROW 

f WHICH 

OUAS 222 

c##* 

•♦♦are NOT IN CONSECUTIVE ORDER, BUT 

AU), ACN+1> 

, A(2N*l.t 

ETC.) QUAS223 


DO 19C KPP = NBEB,NEND,N 



QUAS229 


JCNT = JCNT * 1 



0UAS225 


SUM. =3.0 



CUAS226 


NROW = KINIT * < JCNT • N ) 



0UAS227 
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Ro lar NN=i,i 

NPOW r NROW ♦ I 

1B3 SUK = SUM ♦ t A<NNI*A CNROWn 
19C AtNPpI : AIWPPI - SUK 
2CD CONTINUE 




Nieo TO 2RO 

YOU HAVE PE»D entire LHATRIX 
CONSTANT SECTION LEFT 


1 ROW AT A TIME FOR CONSTANT SECTION 


A_, 1, AA2) 


IF fKSUK .EO. 

C*#* *#*KSUM r N IF YOU HAVE READ ENTIRE LHATRIX A KP 
***THEpE IS NO 
NTBE6 = MEG 
NTEND r NEnD 
KSUMPl = KSUM * 1 
♦♦♦READ REST OF LROWS 
DO 23G IrKSUKPl.M 
NT6E6 = NTEFG * 1 
NTEND = NTEND ♦ 1 
CALI GETKLTAPE, 1, 

JCNT = -1 

♦♦♦PARTIALLY REDUCE A RHS ACROSS A PHS ROW BY APPLYING K NUMBER 
♦♦♦OF LII,J1 S 
DO ?20 NPP = NTBEG jNTENDiN 
JCNT : JCNT ♦ 1 
SUK = C.O 

NROW = KINIT ♦ I JCNT ♦ N ) 

DO 21C NN = 1,K 
NROW :: NPOW + 1 

21D SUM = SUM •» i AINNJ ♦ AtNROWJ » 

22C ATNFP) = AtNPPI - SUM 
230 CCNTINUE 

NREG r NEEG + 1 
NEND NfND * 1 


♦♦♦KINTT IS MOV FAR DOWN A COLUMN OF RHS TO START MULTIPLYING Bx 
♦*#Lti,j) at each pass through 
KINIT = KINIT ♦ K 

c*** ♦♦♦IF KSUKPl = N there APE NO HOPE LII,J)*S LEFT 
iriKSUMPl .LT. Kieo TO 17C 

C*** ♦♦♦WRITE OUT ALL BUT LAST K ROWS OF PHS IN RO k ORDER ON NATAPE 
24C B : + 3 

C = -2 ♦ KQPE 

K = f -B + SQRTt ?♦♦? - «*4C ) >/2 

IE(K ,GT. ND) K = NP 
KF = K 
KKl = K - 1 

KLEFT - !! - KF ■* UNIT 
IN’ITP: = UNIT + 1 
NFND - ♦ UNIT 

OP 25" NPP - INITPl, KLEFT 
NENp = NENP ♦ 1 

2fC WRITETNATAPE) < A t J } , jr Npp ,NE ND »N ) 

REUINC NATAPE 

♦♦♦jpyissi IS true on 1ST PASS THRU BACK SOLUTION 
JPASSl = .TRUE. 

C 


£♦♦♦ ♦♦♦PUT remaining RHS IN CONTIGUOUS LOCATIONS PY COLUMNS 
FROM KOBE - (M ♦ KFJ ♦ 1 TO KORE 
C 

NNEU = KORE - KF ♦ 1 
MMl r M - 1 


0UAS22S 

0UAS2Z9 

QUAS23C 

CUAS231 

0UAS232 

QUAS233 

OUAS234 

QUAS235 

CUAS236 

0UAS237 

OUAS238 

QUAS23S 

CUAS24C 

0UAS241 

t)UAS2‘i2 

CUAS243 

QUAS2R4 

CUAS2RS 

OUAS246 

00AS2R7 

CUAS2<lf 

QUAS2<19 

QUAS25G 

0UAS251 

CUAS252 

0UAS253 

0UAS254 

0UAS2E5 

0UAS25fc 

0UAS257 

QUAS25P 

CUAS250 

C0AS26C 

QUAS2G1 

CUAS262 

CUAS263 

0UAS264 

0UAS265 

0UAS266 

0UAS26? 

CUAS26& 

0UAS269 

Q0AS27C 

CUAS271 

0UAS272 

0UAS273 

QUAS274 

0UAS275 

QUAS276 

QUAS277 

0UAS27E 

Q0AS279 

CUAS28C 

0UAS2E1 

CUAS2S2 

0UAS2P3 

0UAS284 
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c 


QUAS285 

c*** 

<.A*TF H = i, THE ELTS OF THE 1 RHS COLUMN ARE ALREADY IN CONTI GUCQUAS2S6 

t*** 

♦♦♦LOCATIONS 

00A5287 

c 

IFt -H .E0» 1 )B0- TO -262 

0UAS286 


DC 2bZ I = l.KMl • 

CUASZBC 


NCLP = KORE - II*N> + 1 . ‘ 

0UAS2-91 


DO 26r J = 1,KF 

0UAS292 


NNEW - NNEW - 1 

CUAS293 

. 

NOLO = NOLO - 1 

QUAS29‘I 


AtNNEU) .= AtNOLDl ' . . 

QUA S 29 5 

2 60 

CONTINUE 

0UAS296 

C 


QUAS297 


♦♦♦NON NKEW = KORE - (‘■♦KF) + 1 

0UASZ98 


♦♦♦NOW NOLP = KORE - f P - 1 J ♦ N 1 KF 

0UAS299 

C SKIP 1ST PART OF TRAPEZOIDAL PATRiX + READ LAST K ROWS 

QUA S ICC 

C*+* ***ATTATCH RHS TO IT SO THAT EVERYTHING IS 1m CONSECUTIVE ORDER. 

0UAS3C1 

26 2 

NRFPAN = NO - K 

OUAS302 


IFfNREHAN .FQ. D)GO TO 28C 

0UAS3C3 


DO 27C I = l.NREHAN 

CUAS3CM 

2 ■’2 

READCMTJ IDOKHY 

CUAS3C5 

2f0 

NEND = 0 

QUAS3C6 


KCNT : K 

0UAS307 


KNEW = KNEW - 1 . . 

CUAS3C8 


♦♦♦NOTE THAT K = KF WHICH IS ALREADY KNOWN IN CORE 

QUAS3C9 


DO 200 JCNT = 1,K 

OUAS 31C 


KBEG = NEND + 1 

0UAS311 


CALL 6ETH.HT1 6i KCNT, AINREG)« 1; AA2)' 

QUAS312 


KCNT = KCNT - 1 

0UAS313 


NEND NBEG + KCNT 

CUAS31R 


NN'EW = NNEW ♦ 1 

0UAS31 5 


KFND = (MHl ♦ KF) ♦ KNEW 

0UAS316 


DO 29Z NPP=NNFW ,KEND,KF 

QUAS 317 


KEMC r WEND + 1 

CUAS318 

2'JC 

A«NFKp» = A(KPP) 

0UA5319 


REWIND LTAPF 

QUAS32C 


REWIND P7 

OUAS321 

C 


CUAS322 

C 

THE PE, NOW WE CAN START THE B ACK-SdUJTI ON , , ^ 

0UAS323 

c * =* 

NCTE.aHE FIRST AVAILABLE LOCATION FOR THE SCLUIICNS IS ATNIJ 

0UAS329 

c 


0UAS32B 

c 


QUAS326 


♦♦♦Nl IS THE LAST SUBSCRIPT + 1 OF THE TRAf’EZOIDAL A MATRIX THAT 

OUAS32 7' 


♦♦♦CORE 

0UAS32f 

c 


CUAS329 


Ht - NEND ♦ 1 

0UAS33C 


NREH = K 

OUAS331 


KPM = N H 

QUAS332 


NLL = NPP 

OUAS333 


Mpl r H ■» 1 

QUAS339 

< 

LAST r K .EOi N 

CUAS335 


NPASS = C 

0UAS336 

c 

SOLVE FOR THE ANSWEPS CORRESPONDING TO *K • RCWS 

CUAS337 

c 

0UAS338 

c 


OUAS33'9 

• 3CC 

K^l r K - 1 

CUAS3<iC 


KPl - K ♦ 1 

0UAS39 1 
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NS = NL - HPl 

NPASS = NPASS ♦ 1 

DO 330 HN - I , H 

NF r NS + HN 

AINFI = AtNF) / AtNSl 

NT = NS 

IF IKHl ,E0. 0) SO TO 330 

DO 327 IP i It KHl 

NF = SF - ID - H 

NT r NT - KPl - IB 

SUH = G.O 

NP = NF 

N 2 = HPl ♦ TB 

00 310 10 = 1, IB 

N N r NT + 1 0 




NP =; NP ♦ n2 - 10 
3 1C SUH = SUP. ♦ ACNNT * A(WP> 

3?G AJNFl = lAtNFJ - $UK) / AfNT> 
330 CONTINUE 


HOVE the solutions TO CONTIGUOUS LOCATIONS STARTING AT AtNl) 


Ml = KORE + 1 
DO 350 NN = It K 
no 3*tO HN = It P 
NL = NL - 1 
N1 = N1 - 1 
3V0 A (NIT = A(Nl ) 

3 SD Nl = NL - HN 


0 UAS 3 P 2 
QUAS 3 <i 3 
QUAS 344 
0 UAS 3 «I 5 
QUAS 3 <t& 
0 UAS 3«(7 
0 UAS 3 A 6 
QUAS 3«>9 
CUAS 35 C 
QUAS 351 
QUAS 352 
QUAS 353 
OUAS 35 <J 
0 UAS 355 
qua S 356 
CUAS 357 
qUAS 35 B 
qUAS355 
0 UAS 36 C 
0 UAS 361 
0 UAS 362 
0 UAS 363 
0 UAS 36 t| 
0 UAS 365 
QUAS 366 
0 UAS 367 
0 UAS 368 
0 UAS 369 
0 UAS 37 C 
0 UAS 371 


3fiC 


* * 


c 


HPITE THE SOLUTIONS ON TAPE 0 UAS 372 

0 UAS 373 

URITE (NINTH 0 UAS 37 A 

NS : N 1 - 1 ‘ 0 UAS 375 

DO 36 C HN = 1 , H 0 UAS 376 

NT r NS + HM 0 UAS 377 


WPXTF (NIN ) (A( 10 T, 10 = NTt KOREt H» 0 UAS 378 

QUAS 379 

TEST IF THIS IS THE LAST PASS 0 UAS 38 C 

0 UAS 381 

IF (LAST) GO 70 470 0 UAS 382 

0 UAS 383 

WE HUST NOW HODIFT THF TRIAN 6 ULAP HATPIX TO REFLECT THE EFFECT OF QUAS 384 
THE SOLUTIONS OBTAINED SO FAR (EO 21 ) 0 UAS 38 B 

MOTE. .LOCATIONS A( 1 T TO A(Nl-l) ARE NOW FPEE TO USE CUAS 386 


CALCULATE THE NEXT VALUES OF ’HEL* AND 

NELCLP r nel 
HOLD = K 
NFL = NEL - K 
NREH = NREH - H 

NROW = NPEM - K ♦ 1 

IF (K ,LT. NReMT go to 370 

LAST = .TRUE. 

NROW = 1 


0 UAS 387 

NPEH’ QUAS 3 B 8 

CUAS 389 

0 UAS 39 C 

0 UAS 391 

0 UAS 392 

0 UAS 393 

QUAS 394 

0 UAS 395 

0 UAS 396 

0 UAS 397 

0 UAS 39 B 



160 


K = N(?EH 
' 370 NS = 1 

NT - MEtOLO ♦ 1 
C 

C RCAO TN TH£ ROUS TO BE fJODIFXEB 

C 

DC 4S0 If = 1, NRfH 
NT = NT - 1 

IF IIB .LE> NROUT 60 TO 3A0 
NS = NS ♦ NK 
NT = NT ♦ NN 

380 IF C.NOT. JPASSHGO TO 390 
NBEG = NT - K ♦- 1 
+t^REAO RHS. FROM NATflPE 
CALL SETTCNATARE, 1, «» AfNaES), 1, AA2> 

NT = NT'- H 

390 CALL GETTt-HT, 2, NN, AfNSl, 1» AA2) 

TF( .NO.T. JPASSl I GO TO ADO 
NT = NT + H. 

HN = NN + W 

A.CO NP = N1 - 1 

NF = NT - M - KMl 

NN = NN - KOLD 

DO 923 «N = 1, M 

N2 r NF 

NA r WP + nN 

NF. r KA 

SUM = G.C 

DC AID 10 = 1, KOLD 
SDH = SUN ♦ A(N2> + AtNAJ 
N2 = N2 + 1 

me NA = NA -» H 

N2 r H2 + HN - 1 
920 AtN2> = ATN2T - SUM 
C 

C - - WPITF THE MOOIFIEO ROW ON TARE OP CONDEfJSE T Ff ROW 
C 

NL = NT - H ♦ 1 

IF CIP .GE. KROWT GO TO A3C 

NF = NL - KPi 

NKl r NF - NS ♦ 1 

NN2 - NT - NL t 1 

call SAVEFNOUT, i», NN, NNl, A(NS), NN2.ACNLJ) 

6C TO 950 

9 3C NF = NL - KOLD 

DO 992 MN = nL, NT 
AIMF) r AfMM) 

9 9D NF r NF *1 
950 continue" 


OOA5 39S! 
0UAS9CC 
CUAS9Q1 
QUAS9D2 
OUAS903 

aUAS90_9 

0UAS9CS 
QUAS9C6 
QUAS9C7 
QUAS9DS 
OUAS409 
QUAS91D 
QUAS911 
QUA S 9 12 
0UAS913 
QUA S 9 19 
0UAS915 
OUAS916 
0UAS417 
QUAS41& 
QUAS919 
OUAS92C 
0UAS921 
CUAS92Z 
0UAS923 
QUAS929 
QUAS925 
CUAS926 
0UA-$927 
BUAS928 
QUAS929 
0UAS93C 
QUAS931 
QUA S 9 32 
0UAS933 
0UAS939 
QUAS935 
CUAS936 
QUAS937 
0UAS93E 
0UAS939 
CUAS99C 
0ilAS991 
CUAS992 
0UAS993 
QUA$999 
QUAS995 
0UAS996 
QUAS997 


C+*9 ♦**TF 1ST TIME THRU BACK SOLM, SWITCH TAPES SO THAT HT WHICH HAS THtOUAS99e 
*«#ORIGINAL TRAPEZOIDAL HATRIK ON IT BECOME NATAfE AND IS NOT TO QUAS999 

♦**tape Part in- alternating shrinking matrices, natape becomes mt ouasass 

c*** ••♦AND THIS MOV DOES THE ALTERNATING WITH NOUT. 0UAS951 


IF( .NOT. JPASSl ) GO TO 96C 


0UAS952 


NTEHP = MT 


QUAS953 


HT r natape 


QUAS959 


NATAPE = NTEHP 


0UAS955 



or> -non non r>nr> ono n nn 


161 


JPASSU .FALSE. 
RLb2^^ NATAPE 
<I6C REU3ND «T 
RFUiNtJ KOUT 


ORWTNALPf^, 

OF POOR QPAUii« 


SWITCH THE TAPES 


NT = HT 
HT - NOUT 
NOUT = NT 


^ - LOOP BACK THRU THE SOLUTION 


NL = NF 
60 TO 30C 

START TO WRAP IT UP 


A7C REUINO N3N 
N? r N 

+ * NOTE.. AT THIS POINT ALL LOCATIONS Atl) THRU AtKOPC) ARE FREE 


00 1(9? IB = 1» NPASS - 
REA!) fMN» K 
N1 = N2 - K + 1 

NS r Ml 

MT = K2 

- - READ IN the solutions 
DC N8C 10 r H 

CALL 6ETTtNlN» I, K, A(NS), 1, AA2> 
NT = NT + M 

<4B2 NS = NS -» N 

490 N2 = N1 - 1 

REWIND ALL INPUT TAPES 

REWIND KIN 
REWIND H7 
REWIND NOUT 
C WRITE THE SOLUTIONS ON TAPE 


OUASNSA 

CUAS457 

0UAS4S8 

0UAS459 

0UAS4&C 

QUAS461 

CUAS402 

QUAS463 

CUAS464 

0UAS4fcS 

QUAS466 

QUAS407 

0UAS400 

0UAS469 

0UAS47C 

Q0AS471 

0UAS472 

0UAS473 

0UAS474 

QUAS475 

0UAS476 

00AS477 

QUAS478 

0UAS479 

0UAS46C 

0UAS481 

QUAS48Z' 

aUAS4a3 

0UAS484 

QUAS485 

QUAS486 

eUAS4e7 

0UAS488 

0UAS489 

0UAS49C 

0UAS491 

0UAS492 

0UAS493 

0UAS494 

QUAS495 

0UAS490 

0UAS497 


C 

NT r r 

DO 500 103 1, H 
NS = NT + 1 
NT 3 NT ♦ H 
SrC CAUL SAVEtMW, 1, N> N, AtNS), 1, 
C *** IF TAPE HAS NEVER SWITCHED IT 
IFLJPASSIIBO TO 510 
C 


QUAS498 

BUAS499 

0UAS5CC 

CIUASSCI 

QUAS5C2 

AA2) 0UAS5C3 

WOULD BE FOOLISH TO SWITCH PACK QUAS5C4 

QUAS5C5 

QUASSC6 


C#** ♦♦♦SWITCH TAPES 0UAS5C7 

C*** ***EACK SO THAT MT WILL CONAIN THE TRAPEZOIDAL MATRIX QUAS5C8 

c*** ♦♦♦NATAPE WILL HAVE NOTHING USEFUL ON IT. 0UAS5C9 

'NTEMP 3 NATAPE 0UAS51C- 

NATAPF z HT 0UAS511 

HT r N7EHP 0UAS512 
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RZUlNt) NATAPE 

510 IFI .NOT, L*S7RS)S0 TO 150 

s2o rewind ltape 

rewind (!T 
KRED = 0 

DO, 5i|e I=1,NLCNT 
PrflDILT.APE JKREAD 
5 30 CONTINUE 

KRFd'z KREO + KREAD 

KPEAD = KBEAD + f N - KRED - 1> 

DO SRC LREAD=1,KREAD 
5RC READILTAPEJ 

DO 55E NROW r l,ND 

CALL SAVEILJAPE, 2, ICNT, A, l, 


55 


AA21 




REWIND 

remind 

REWIND 

REWIND 


N| 

HH 

NO 

NAT 


0 ) REWIND RHSTAP 


lF( RHSTAP ,NEj 
CALL TI(4EV{AA2> 

ND = MjoTAL 
BB = <AA2 - ^AIJ / 6C. 

fE<6»560)N,N;MT0TAL,BB 

560 FORMAT iqHOTHE 15, 2H X IS, 12H HATPIX WTTi 

return 

END 


0UASS13 

QUASSIA 

CUAS515 

QUAS516 

OUASSIT 

QUASBie 

CUAS519 

QUiJS52C 

QUAS521 

0UASS22 

OOAS523 

CUAS52A 

CUASS25 

0UAS526 

OOAS527 

pUAS52e 

CUAS529 

CUAS53C 


0UASS31 
QUAS53Z 
' QUAS533 
0UASS3A 
0UAS535 
QUA S 536 
QUAS537 
QUASS36 
&UAS539 

IS, 35H RIGHT SIDES WAqOasBAG 

QUASSm 

0UASSA2 

0UA5EA3 

CUAS5AA 
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SUBROUTINE TSETV 

RETURN 

END 


"D & filT. 


FUNCTION *RSIN(XI 

»PSIN=ASIN<X1 

FTTURN 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


SLB ROUTINE COMBOfNf l.T« NT ^ NONUI 


calculate combination constants cck, system angle of attack 

AND CLr SYSTEM LIFT CURVE CONSTANTS fKl, K2, ♦ K3 > , AND CK CONSTANTS 

N = TOTAL NUMBER OF ELEMENTS 
L7 = NUMBER OF UPTIME BODIES 

KT = NUMBER OF ONSET FLOWS 

H71 = HT 4 1 

CCL = CHORD FOR CLT CALCULATION 

INCLT FLAG, = D, ALPHA INPUT C COMES TN As CLT ) 
not = 0, CLT INPUT 

DIMENSION BLUjt5D0>, DVaD,12», A<1D.10), CCKJI0,12), SIGI5DDJ 

COMMON /FILEID/ IFOI, IFD2, 1f 03, IFON, IFQ5 , IFC6, lF07, 1F08, 

1 IFD9, IFIO, IFli; IF12, IF13, IFIN, IF15 

2 »1FIL16, IFIL17, IF1L18, IFIL}'?, IFIL2C 

COMMON /COMBOD/CCL, INCLT, CLT, ALPHA;, SUHDS(IO), TLU IIO ,12 1 , INO 
1 , ALPHAO, CnUIIO;; s’mDswFUOI, (flOllCJ 

COMMON /SIGMAS/CSI6(500», CKil2l 
EQUIVALENCE JBLU(J), CSIG<lVl 

DATA PI, RC/3. 1915927, 1 .7<tS3 293E-2 / 

MRHS = 2 ■ 

IF tNONU .GT. 0) HRHS r 3 

PIC r o.a 
RKl = 0.0 
RK2 = C. G 
R«3 = C.D 
ALPHAO i C.^ 

IF tLT .CO. OJ GO TO 140 


CALCULATE TRAILING EDGE VELOCITY DIFF.EPENCE ARRAJ 

INITIALIZE DV ARRAY TO TLU VALUES 
DO 5 L = 1,IT 
DO 5 k = i,MT 
5 D.VCL,KJ : TLUIL,K) 

i 

REWIND Ifl3 
DO 30 L = 1,LT 

CALL GCTT TIF13, I, N, BLU, 1, 01 
REWIND IF1.4 
DC 2C K = 1 ,HT 

CALL GCTT (IF14, 1, N, SIG, 1, 0) 

DO 1C J = 1,N 

10 nyiL.K) = DVIL.K) BLU(J>,4SIG»J) 

20 CONTINUE 
5C CONTINUE 


C 

c 


COMB CC 1 
COKBC02 
COMB CD3 
C0MBD04 
.C0MBCC5 
C0KRCC6 
C0HBCC7 
COHBC08 
C0HBDC9 
COMBQID 
COMBCll 
COHB012 
C0MBC13 
COKB014 
C0MBC15 
C0MBC1« 
C0MBC17 
COHbGIB 
C0MBC19 
COMB C2C 
COMP C2l' 
C0M8C22 
C0MBC23 
C0KBE24 

C0MBC26 

C0KBC27 

C0MBC2iB 

C0HBE29 

C0M3C3C 

C0HBC31 

C0MBC32 

C0HPC33 

C0HBC34 

C0HBC35 

CCMBC36 

C0MBC37 

C0MEC3P 

C0MPC39 

C0MEC4C 

C0MBC41 

C0HBC42 

C0MPD43 

C0MS044 

COMBC45 

C0HBC46 

C0MPC47 

C0MPC48 

C0MBC49 

C0MBC5C 

C0MPC51 

COMBC52 

C0M5C53 

COMBE54 

COMB C55 

C0MBC56 

COMP CS7 

COMBCSE 

C0H8C59 
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C SET arrays to obtain COMBINATION CONSTANTS CCK . USE MlSl 
C ATLT.CT) IS COEF, ARRAY 

C CCKfLT,3) IS INPUT AS RHS, RETURNED AS CCK. ' ‘ 

C 

DO 70 L = 1,UT 
CCK(LtlJ = -DV(L,n 
CCKtL,2> = -0V{L,2> 

CCKfL,3) = o.n 

IF (NONO .LE.O) GO TO 50 

K = LT + 2 

DO NO K r 1,N0NEJ 

M = M * 1 

NO CCKIL.3I = CCK(L,3J - DV(L,H> *CNU IK 1 
SO CONTINUE 
C 

DO 6C K = l.LT 
K2 = K ♦ 2 
60 AIL,K) = DV(LrK2) 

C 

TO CONTINUE 
C 

IF IIT ,GT. II SO TO 90 
C 

C ONLY ONE LIFTING BODY. CALCULATE COMBINATION 
C CONSTANTS STRAIGHT AWAY. 

DO SO K = 1,MRH£ 

8C CCKU,K) = CCKU.K I/A U ,1> 

SO TO lln 
C 

C CALL HISl FOR SOLUTION 
90 CCNTINUE 
D = l.D 
Lie = 1C 

CALL HlSl tA, LT.LID, CCK, HRHS, NERP, DI 
C 

C CHECK FOP SINGULAR CASE 
WRITE I6.1DC1 NERR 

ICO FORMATIIMC, ’ON RETURN FROM MlSl, NERR = *, 121 
C 

C CALCULATE SYSTEM ANCLE OF ATTACK (ALPHAI AND TOTAL LIFT ICLTl. 
C 

110 CONTINUE 

DO 13C- L = 1,LT 

RKl = RKl * SMDSWFILI ♦ CCK|L,1I 
RK2 = RK2 ♦ SKDSWFILI * CCKIL,?! 

120 RK3 r RK3 ♦ SMDSHFfLl ♦ CCKIL,3I 

13D CCNTINUE 
C 

PIC = 8.+PI/CCL 
ALPHAO = ATAN2tRKl, RK2I 
C 

C CHECK IF alpha or CLT INPUT 

IF IINCLT .EQ. 0) GO TO 190 
C 

C CLT INPUT, DETEPHINt ALPHA 

BK9 = ICLT/PIC - RK31/S0RTCRK 1YY2 + RK2**21 


C0MBC6C 
C0HBD61 
COMBQ62 
COMBC63 
C0KBC&9 
C0HBC65 
C0MBG66 
C0MBC67 
C0MBG58 
C0MBC69 
COMBCTC 
C0HBC71 
C0M3C72 
C0MBC73 
C0HBG7'I 
C0MBC75 
C0HBC76 
C0HBC77 
C0HBC78 
C0MBC79 
C0H3C8G 
COHBOal 
C0MBC82 
C0M&Gfl3 
C0MBC89 
C0MBC8S 
C0HSC86 
.C0MPC87 
C0HBC8R 
C0HBC89 
C0HBC9C 
C0MBC91 
C0MBC92 
COMB C93 
C0HBC99 
C0MBC9S 
C0HfiC96 
C0M9C97 
COVp C98 
COMB C99 
COMB IOC 
COMP ICl 
C0MB1C2 
C0MB1D3 
COMBICR 
C0HP1C5 
COMB 106 
COMB 107 
COMB ice 
COMB 109 
COMB lie 
COMB 111 
COMB 112 
COKB 113 
COMB 119 
COMP 115 
COMB 116 
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r -ALPHAO ♦ ARSINCRK«H 
. So TO 150 

ALPHA INPUT, CALCULATC CLT (REPEATED IF INPUT! 
l*tD ALPHA = ALPHA*RC 
150 C05A = COSIALPHAI 
SINA : SlNtALPHAI 
IF lINCLT .EO. D! 

ICLT = PIC*tRK14C0SA ♦ RKZ#SIN A ■» RK3) 

ALPHA = ALPKA/RC 
ALPHAQ = ALPHAO/RC 

CALCULATE COEFFICIENTS CK(K» FOR LIFTING BODIES 
CK(1» = COSA 
CK(2! = SIMA 

IF (L7 .LE. C) GO TO 165 
DC 16C L = 1,L7 
K = L 2 

CKCK) = CCKfL ,1I*C0SA + CCK <L ,2)*SIKA -♦ CCKfL,3J 
16D ‘ ■ 

SET NON'U FLOW CK»S TO ASSUMED VALUE OF 1.0 
165 CONTINUE 

IF (NCNU .LE. D> GO TO 18D 
K = LT ♦ 2 
DC 170 J = l.NONU 
K = K * i 

17C- CK(K) = CNUtJ! 

ISC CONTINUE 

CALCULATE COKBINED SIGMAS 
DC 190 j = 1,N 
1 <>0 CSIG ( J1 = C.G 
REWIND JFIA 
.DC 21 C K r 1 ,hT 

CALL '6ETT (IFIM, 1, H, SI6, 1 , D> 

DC 20C J - 1,N 

2C3 CSlGlOl r CSIGIJ! STGf JTirCK IK! 

210 CONTINUE 


■PRINT OUT SOME STUFF FOR CHECKOUT PURPOSES 
WRITE (6,220! ALPHA 

22D FORMAT (IHl, »COHB I NATION CONSTANTS V/T 10 , •ATPhA - •, 

1 T3C,*0*» T5T,'9G', T6«l, F12.61 

C 

■IF (LT VIT. 0! GO TO 2N5 
■DO 232 L = i, iLT 
K = L-* 2 

230 WRITE (6,29Q! L, CCKtL,!'!, CCK(L,2I, CK.C(K) 

290 format UHC, T1«»,I2., T29,r-12.6, T99,FJ2..6, .T69,F12.6> 

C 

295 CONTINUE 

WRITE 16,250) RKl., RK2, 'RK3, ALPHAO, ALPHA, CLT 
250 FORH'AT t'lHC, ///• LlF-T CURVE CONSTANTS*//T.lD ,*RK1 = •,F12.6, 
1 T30,’PK2 r •,F1Z.6, T5C,*RK3 = • ,'F.12 .6//T 10, 


C0HB117 
C0HB118 
COHS 119 
COMB 12C 
C0HBI21 
C0ME122 
COMB 123 
COKP129 
COMP125 
C0MB126 
COMB 127 
C0MB12B 
COMB 129 
COMP 13C 
COMB 131 
C0HB132 
COMS133 
COMB 1-39 
COMB 135 
COMB136 
COMB 137 
■C0HB138 
COMB 139 
COKS 19C 
COMB 191 
COMB 192 
COMB193 
COMB 199 
COMB 195 
comb 196 
C0MB197 
COMB 196 
COM? 199 
C0HB15E 
COMB 151 
COMP 152 
COMB 153 
COMP 159 
COMP 155 
COHS 156 
COMB 157 
COMB 158 
C0MB159 
C0HE16C 
C0H8161 
COMB 162 
COMP 163 
COMB 169 
COMB 165 
COMP 166 
COMB 167 
COMP 166 
C0HP165 
C0HP17C 

coMpni 

C0MC172 

C0HP173 
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2 

3 


RETURN 

END 


•ALPM*0 = »t F12.6//T10, ‘ALPHA = *,F12.6/>nO, 
*CLT = », F12,6> . . 


COMB 17*1 
COMB 175 
COMB 176 
COMP 177 
COMB 176 
COMB 179 
COHE18C 


original page is 
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SUBROUTINE OFFPrsCNO, X* Y, TITLE, LXST^ CHOROB, TDB, IBTOTJ 

DIMENSION XJII, YtlJi'TlUtC 71 
I tCNORDBUOl, IDBnO) 


D*TH EPS/1. 0E~7/ 

- DP=3. 1^159265/180. 

READ IN BODY TITLE AND CONTROL CARD 
10 iTYP = 21 • 

R£AOI5,20>' ID, TITLE, ITR, JNORM, IDOLD, LAST, ITYPE 
20 FORNATI 11, 9X7A4, 12X, 2T2XI11, 215x111, 2X121 
IF CITYPE .-NE. ITYP'l CALL TYPEtlTYP, ITYPEl 

READ IN COORDINATE TPANSFOPNA TION CARD IF REOUIKED 


OFFPCCl 

0FFPCC2 

0FFPC03 

OFFPCCR 

OFFPECS 

0FFPCC6 

0FFPCD7 

OFFPCOS 

OFFP CC9 
OFFPCID 
OFFPCll 
0FFPC12 
0FFPC13 
OFFPCIR 
0FFPC15 
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c 


c 

c 


c 

c 


c 

c 


c 


c 

c 


ITYP = 22 • 0FFPC16 

CHORD = D«0 0FFPD17 

IF tlTR .to. 0 .OR. ITR .EO. 2J EO TO RO OFFPCje 

read <5,301 CHORD, XMULT, YHO LT , DX, Dt, THEIfr, XTO, VTO , ITYPE 0FFPC19 

3D F.ORHAT (7<F8.D,1X), F8.D, 111 0FFPC2D 

IF (ITYPE .NE. (ITYP-20)J CALL TYPEdTVP, ITYPE) 0FFPC21 

0FFPC22 

40 CONTINUE OFFPC23 

0FFPC24 

check IF ELLIPSE TO BE GENERATED 0FFP025 

IF (ITR .6T. 1) GO TO <?0 0FFPC26 

. 0FFPC2.7 


DATA ON DNIT 5. X-COOPDS FIRST 
L =. 0 
ITYP = 23 

50 READ <5,601 IX(L*I), 1=1, 6>, INO, ISTAT, ITYPE 
6D FORMAT <6F13,D, 4X11, 2XII, 3XTH 

IF (ITYPE .ME. (ITYP-2C)) CALL TYPEdTYP, ITYPE I 
IF UNO ,LE. 0 .OR. INO .GT. 61 INO = £, 

L = L + INO 

IF dSTAT .EO. OJ GO TO 50 
LX = L 

NOW READ IN Y-COORDS 
L = C 
ITYP = 24 

70 READ (5,601 (Y(L + D, 1 = 1,6), INO, ISTAT, ITYPE 
,IF (ITYPE .NE. <1TYP-2P)) CALL TYPEdTYP, ITYPE) 

•IF (INO .LE. D .OR. INO .ST, 6) INO = 6 
t‘= L INO 

IF (ISTAT .EQ. 0> GO TO 70 
LY = t 

CHECK FOR INPUT CONSISTENCY 
IF (LY .EO. LX) GO TO 12C 
WRITE (6,eC) LY, LX 

30 fORPAT (IHl.’THE MUMBFR OF Y-COOR DIN Al E S t»,I3,*) PEA^OOES •, 

1 'NOT equal THE NUMBER- OF X-CO ORD INATE S READ (•,I3,*)» 

CO TO 2D0 


0FFPC28 
0FFPC29 
0FFPC3C 
0FFPC3 J 
0FFPC32 
OFFPC'3 3 
QFFPC34 
0FFPC35 
OFFPC36 
0FFPC37 
0FFPC3e 
0FFPC39 
0FFPC4C 
0FFPC41 
0FFPC42 
OFFPC43 
0FFPC44 
• CFFPC45 
0FFPC46 
0FFPC47 
0FFPC4e 
0FFPC49 
0FFPC5C 
0FFPE51 
0FFPEE2 
>0FFPC53 
0FFPC54 
0FFPC55 


ELLIPSF 70 BE generated. READ IN DEFINITION CARD, 0FFP056 

9C ITYP = 25 0FFPE57 

RFAO tS.lOC) LX, ELPSTH, ITYPF 0FFPG56 

IOC FORMAT <2X13, 5XF10.5, 51XU» OFFPC59 

IF (ITYPE ,NE. (ITYP-20n CALL TYPEdTYP, ITYPE) CFFPC6C 

ITR ^ ITR - 2 0FFPC6X 

IF (ITR .NE-. 1) TTR = D 0FFPC62 

0FFPC63 

OANGLF = 6.2831853Q72/CLX - 1) 0FFPC64 

ANGLE = DANGLE 0FFPC65 

DO 110 T = 1,LX 0FFPC66 

ANGLE =. ANGLE DANGLF 0FFPE67 

X(l) = COS (ANGLE 1 OFFPCGS 

lie Y(I) = SIN(ANGLE)YELPSTH 0FFPC69 

0FFPC7D 

170 CONTINUE 0FFPC71 

OFFPC72 







170 


c 

WRITE OUT BASIC 

GEOMETRY DATA 

0FFPC73 



IP = 1 



0FFPC74 

c- 





0FFPC75 

c 





0FFPE76 

c 

TBANSFORK COORniNATES IF REQUESTED 

0FFPC77 



IF IITr ,EC. 

1) 60 TO 133 

■ 

0FFPC78 



IF IIKORH ,X0 

. 0) GO TO 

220 

OFFPG-7 9 



XHULT - O.C 



oFFPcec 



YHULT = C.D 



0FFPC81 



XTO = 0.0 



0FFPC82 



TTO = O.D 



0FFPC83 



THETA = C.D 



0FFPC8H 



DX = C.O 



0FFPC85 



DT = C.O 



0FFPC86 


i30 

continue 



0FFPC87 

c 

■ 




OFFPO80 



IF lAPSFXMULTJ .LT. EPS) 

XHULt r 1.0 

0FFPC89 



IF fABSfYHULT) .LT. EPS) 

yhult r i.o 

0FFPC9E 



xsr = XMULT 



0FFPD91 



YSF = YKULT 


. 

OFFP092 



IF IINQRH .to 

. 0) GO TO 

len 

OFFP093 

c 





0FFPC99 



IF HDOLD ,LE 

. 0) GO TO 

163 

0FFPC95 



DC me IP = 

l.IBTOT 


0FFPC96 



IF linB«IBl . 

FQ. IDOLO) 

GO TO ISO 

0FFPG97 


mo 

CCNTINUE 



0FFPC98 



50 TO 16C 



0FFPC99 


ISO 

CHORD = CHORDBtlB) 


OFFPlCC 


160 

IF lABS^CHORD) .LE. EPS) 

GO TO 180 

OFFP ICi 


170 

xsr r XSF/CHOBD 


OFfp JC2 



YSF c TSF/CHORO 


0FFP1C3 

c 





CFFP1D4 


130 

COST = COSITHETA^DR) 


0FFP1C5 



SINT = SINFTHETA+DR) 


0FFP1C6 



DO J9C I - 1, 

LX 


0FFP1C7 



XTOP = X«3I - 

XTO 


0FFP1D8 



YTob = Y<i) T- 

yto 


OFFP IC^ 



X II ) r lYTO i 

X70D9COST - 

yTQp«INT + DXI9XSF 

OFFPHC 



Y II )• r lYTO + 

YT0D9SINT -* 

YTob+COST + DY)*YSF 

OFFPlll 


190 

CONTINUE 



0FFP112 



GO TO 220 

• 



c 




- 

0FFP113 


2P0 

WFITE I6.21G) 



OFFPim 


21G- 

FORMAT IlHC, 

•BECAUSE OF 

THE ABOVE ERROR, THIS RUN IS 

TERHINATED* »0FFP115 



STOP 



0FFPU6 

c 




. 

0FFP117 

c 





OFFP 118 


22C 

CONTINUE 



0FFP119 



NO r LX 



0FFP12C 



RETURN 



0FFP121 



END 



0FFP122 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


StBROUTlKE SOLVEtN, ISI2E t ISOL) 


THIS ROOTIME OBTaIKS THE STGHfl SOlUTTONS 

FROf either solvit CTS 0 L=CT, quasi ClSOtrl}, OR HISl (3S0L=2> 


CCHHON /SPACER/ WK ARE A 11 1 <* 13J 
OIKENSION AdOltlOll, SIGflDltl2> 


“■ FOUIVALENCE tA(l,lJ,W»CAftEAtl>), ISIGCl.l), UKARE AT 102Q2 1) 


CCHHON /FILEin/ IFILEl, 


1 

2 

3 


IFILE6, 
IFILll * 
.iriLlG, 


IFILE2, 

IF1LE7, 

IFIL12, 

IFIL17, 


1FILE3, 

IFILEB, 

IFIL13, 

TFILIS, 


IFIIE4, 
IF1LE9, 
IFIL 14, 
IFIL 19, 


IFILE5, 
IFILIO, 
IFIL 15 
1F1L20 


IF (ISOL .EO. 2) GO TO 70 

HP = K 

CALL TIKEVm 

10 IF (ISOL .NF. 01 GO TO 30 
15 CONTINUE 

HPITEt6,201 T 

FORHATdHD, ’SOLVIT TIHE = *, F9.3, ’ SECONDS.’) 

CALL SOLVIT (WKARFA, N, HM, ISIZE, IFILE9, IFILEl, 

1 1FILE2, IFILIN, +50) 

CALL TIKEV(T) 

UPITEI6,20) T 
RETURN 

■i 

3E WPITE«fc,4D) T 

CALL OUASI (UKAREA , N,HK, ISIZE, IFILE9, IFILEl, IFILFZ, 
1 1F1.LE3, 1FIL14, 1FIL15 , If 1L£4,*EC) 

CALL TIKEVdl 
WRITE (6,40 T 

40 FORHATdHtr, ’QUASI TIME r •, F9 . 3 , • SECONDS .’ ) 

RETURN 


USE PISl IHIS2? 

A-AR'^AY STORED ON IFILIC 
PHS STORED ON IFILE4 
SICHAS SAVED ON IF 14 


SOLVCCl 

S0LVCC2 

S0LVCC3 

50LVEC4 

S0LVCC5 

S0LVCC6 

SOLVCCT 

SOLVCOP 

S0LVCC9 

SOLVCIO 

SOLVCll 

S0LVC12 

S0LVD13 

S0LVC14 

S0LVG15 

SOLVCIG 

SOLVCl'7 

SOLVCle 

S0LVC19 

S0LVC2C 

S0LVC21 

S0LV022 

S0LVC23 

S0LVC24 

S0LVC25 

S0LVC26 

S0LVC27 

S0LVC2B 

S0LVC29 

S0LVC3C 

SOLV C31 

S0LVC32 

S0LVC33 

S0LVC34 

S0LVL35 

S0LVC36 

SOLVOZ? 

S0LVC38 

S0LVC39 

S0LVC4C 

S0LVC41 

S0LVC42 

S0LVC43 

S0LVC44 

S0LVC4S 

S0LVC46 

50LVC47 

SOLVERS 

S0LVC49 

S0LVC5D 

S0LVC51 

S0LVC52 

SOLVC53 

S0LVC54 

SOLVC55 
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%'c 

•7P NKAX = 101 

IF1«(= IFIL!«I 
RCWINP IFTLIO 
REWTNtl rFILE«( 

- RETWINn mi) 

IF (N .LE. NHAX.) GO TO 9D 
URITElfe.SCJ NMAX 

eo roRHATClHCt'THE SIZE OF ARRAr EXCEE.CS ^LJHIT OF •. r<n 

uv To 15 
C 

9D CONTINUE 
C 

0 = 1.0 

c 

C RF'AD XN A-ARRaV 

nr ICO I = ht» 

READTIFILICI I A<i, J> ,J=l,Nl 
ICO READ UFILID) 

.'c 

C R'E.'AD IN PHS IN SIG ARRAY 
REAC'tlflLFR^ MDU'M 
DO lie K = 1-,H 

110 READCIFlL'E'i> CSlGII,K»>Irl,N) 


^ CALL fISZIA, N, NHAX', SI6', KV >IERR, DJ 

WRITE 16,1291 NEPR 

120 FORHAH1HO,’ON RETURN FRCK NIS2, MERR ~ •, J!) 

C SAVE ST'&«AS 

DO 13C J = l.N 

IIS WPITE(IF14) i“li'NJ 

return 
c 
c 

END 


S0LVC56 
S0LVCS7 
50LVCS8 
S0LVCS9 
S0LVC6C 
S0LVC6J 
S0LVC6Z 
S0LVC63 
S0LVC64 
SOLV065 
SOLVC66 
S0LVC67 
S0LVE6B 
SOL VC69 
S0LVC70 
S0LVC71 
S0LVC72 
.S0LVC73 
S0LVC74 
S0LVC75 
S0LVC76 

S0LVC77 

S0LVC78 

S0LVC7.9 

SOLVC0D 

SOLVDBi 

S0JLVCS2 

S0Ly083 

S0LVC84 

S0LVC85 

soLvosg 

S0LVC87 

S0LVCS8 

SOLVCs‘9 

SOLVCRD 

S0LVG91 

S0LVC9Z 
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OF POOR QUALITY 


c 


c 


c 


c 


c 


SUBROUTINE VXYOFFtN, M, MO, S, T> 

DIHENSION SIGCSOO), XC1», Yfl», *fSOOJ, P<5£C» ' 

1 ,VX(12>, VYC12), VXTI12), VYN<12) 

CCMHON/EtP/ X0(5.CD1, YOtSDOJ, DSfSCDI, SAIEOO), CAfSOCJ, 
1 CURV«501J), DLtSCQJ 


CCKHON/COf'BOo/CCLTlNCLT,CLT,*LPHA,SUHDSIlCI,lLu«lC,121,JND 
1 , ALPHAO, CNIKISI, SMDSwr<10>, PIOUO} 

COMMON /SIBHAS/ CSIBISOCl, CKI12) 

COMMON /6CF/ wFISOOl 


COMHON/fiFLAB/ IDBUOl, 

1 IBMFflOl, 

2 btitleuc, 

3 ITRBflOI. 

A ,IPRB(10I, 


INLCIDI, IFLCICI, NUICJ, LIFTCIO), 
I5AVIC0), ISAV2(1C), rSAV3(10>, 

7), IBT, IBS7, lETOT, MELTOT, 

TNMBdCI, CHORDClal, IBDtlO, LIFTOT 
IFSTdOl, TSECClOl, FlITLEilBl, IPWBIIGI 


vxYocni 

vxYocb: 

WXYOCCS 

VXYOGOA 

VXYOtOE 

VXYOECf 

VXYOC07 

VXYOCDS 

YXY0CC9 

WXYOCIC 

WXYOCll 

VXY0C13 

VXYOCIA 

VXYOC15 

VXYOOIB 

vxYoen 

WXYOC18 

VXY0CI9 

VXYOC2C 

WXYOC2I 


COMMON /FILCID/ IFAl, IFA2, IFBS, 

IFOA, IFOS, 

VXY0CZ2 

1 IF06, IFD7, IFD6, 

IFD9, IFIC, 

VXY0C23 

2 iFOl, IF02, IFI3, 

1FX4, TFIE 

VXYOC24 

3 »TF16, IF17, IF18, IF19, 1F2Q 

VXY0C25 

REMIND IFOl 


VXYOC26 

REMIND IF02 


YXY0C27 

VXY0C2S 

VXY0Q29 

set some cuanttttes 


vxy6c3c 

?C- SAI r 0.0 


VXY0C3X 

CAI = l.C 


VXYOC32 

CSl = O.C 


VXYOC33 


* 

VXVOC34 

CC 23C I = 1,N0 


VXYOC35 

JJ =• ? 


VXY0C36 

K = 2 


VXYOC37 

VXY0C38 

DC ISr le = X.IETO.T 


■ YXY0C39 

IF (IFMFCIBJ .LT. OJ GO. TO X SD 


VXY0G4E 

YXYOCAl 

counter for ELFHEMT GEOMETRY 


VXY0CR2 

J = INUlB) — X 


VXY0C43 

COUNTERS FOR A ,B ARRAYS 


VXYOCHl 

JI = JJ ♦ X 


VXY0C45 

JF = JJ ♦ NL(IB) 


VXY0C46 

VXY0C47 

JJ IS COUNTER FOR THE CURRENT ELEMENT 


VXY0C48 

VXYOC49 

ZERO OUT AtB ARRAYS 


VXY0C5D 

DO 3C JJl = JI.JF 


VXY0C5X 

A(JJX) = C.O 


VXYOC52 

32 E CJJ1» = O.C 


VXY0CE3 

VXY0C54 

JJ = Jl 


VXY0C55 

JJI = JJ + 1 


VXY00S6 
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JJ3 s JJl + 1 
60 TO 5D 

HV ^ JJ -^1 

50 J = J ^ 1 

= XTFORfC X(I), Y«H, DSI* SftI » CAT, 

1 )f0IJ>vr0(J),DLC-J)VS'AIU>,-CA<J»,B01 

B (J.J I ^ B< JJ. ) «- BO 
A(JJI r »tJJ) ♦ AO 

c ■ 

c 
c 
c 
c 
c 
c 
.• c, 
c 
c 

110 JJl = jj 

JJ = JJ 4 1 

IF tJJ - JF140, 120, 13D 
C 

. • 120 JJ3 = JJ2 - 1 

GO TO So 
1 3D J J r JJ - 1 


IF (LIFTIIB) .EO. 01 GO TO 1 50 
VN = O.C '' 

VT = r.G 

DO ISCJ = JI,JF 
VK r VN- BtJ)*WFtJl 
142 VT = VT t A|J>+WFtJ) 

K - K + 1 
VXTIK»= VI 
yyfJ{K)= yN 
15C CONTINUE ' 

SET UNIFORC ONSET FLOWS 
ALPHA = C 

VXTI 1 1= CAI 
yYN(i»=-SAj 

ALPHA' r 00 

VXT 121= 5AZ 
VYN«2)= CAT 

SET INPUT NON-UNIFORH' ONSET FLOWS 
HI = LIFTOT 2 
IF <H ,E0. Hl> BO TO 170 
H2 = HI ♦ i 
DO 160 K = H2» H 
VXTJKI = C.C' 

16C VYNIKI = C.D 
170 CONTINUE 


VXY0C57 

VXY0C58 

VXY0D59 

VXY0C6C 


VXYOC64 

VXY0E65 

VXV0C66 

VXY0067 

VXY0C9S 

VXV0C7D 

VXY0D78 

VXV008C 

VXYO[;84 

VXV0C87 

VXY0C97 

VXYOICI 

yxYOica 

VXY01D3 

VXY01C4 

VXY01C5 

VXYOlDb 

VXV01C7 

VXYOICS 

WXY0iC9 

VXYOllO 

vxroiii 

VXY0112 

VXY0113 

VXY0114 

VXYOllS 

VXYOilG 

VXY0117 

wxYOiie 

vxyo H9 

WXY012C 

VXYO 121 

VXY0122 

VXY0123 

VXYC124 

VXYO 125 

VXY0126 

VXY0127 

VXY012e 

VXY0129 

VXY013C 

VXY0131 

VXY0132 

VXY0133 

VXY0134 

VXY0135 

VXY0137 

VXY0138 

VXY0139 

VXY014D 
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C CHE.CK IF INDIVIDUAL FLOWS DES3PE D 
IF lIND .NE. 1) GO TO 200 
RF.WINO IFIA 
C 

C FALCULATE INDIVIDUAL FLOWS ‘ 

DC 19C K r 1,H 

CALL nETTtlFlil, 1, N, SIG(11« 1, VN ) 
VFIK) = VXUK) 

VYtK) = VTNOO 
C 

DO 18D J = 

VXtNI r VX(K> ♦ B<J)*ST6«J J 
IBC VYtKI = VYtK) + A<J)*SI6(>I J 

190 continue 

c 

C SAVE VrLOCIlTES 

UKITEtlFuZ) CVXtK), VYIK), K = 1 ,« ) 

c 

C CALCULATE COMBINED FLOW 
220 VXC = G.G 
VYC = 0.0 
DO 71C K = 1,H 
VXC = VXC +VXTlK)*CKtK) 

210 VYC = VYC ♦VYNtK)9CKtKJ 
C 

DC 22C J = 1,N 

VXC = VXC «■ BIJ)*CSJGtJ} 

220 VYC r VYC ♦ A(J)*CSIGtJ7 
C 

C SAVE VELOCITIES 

WPITEflFCl) VXC, VYC 
C 
C 

27& COKII»;UE 
c 
c 

RETURN 
END . 


VXYOim 
vxYomz 
WXY0143 
yXYOlAR 
VXY01A5 
VXYOIRO 
VXV01A7 
VXY0198 
VXY01A9 
VXYOISC 
VXY0151 
VXY0152 
VXY0153 
yXYOlBA 
VXY0155 
VXY0156 
VXYO 157 
VXY0158 
VXYO 159 
VXY016C 
VXY0161 
VXYO 162 
VXYO 163 
VXY0169 
VXY0165 
VXY0166 
VXY0167 
VXY0168 
VXYO 169 
YXYOITC 
VXYO 171 
VXY0172 
VXYO 173 
VXY017A 
VXY0175 
VXYO 176 
VXY0177 
VXYO 176 
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SlBftOUTlHF PLO*ISfXX,T»,E>rEP,CRD,OrsFTA,OFSrT,SLETRS,SNOSZ,KS,K6,KU 

IfL^NKtHLl U 


CTXt:<«>»XXXS«tSXttSSXtXtXSSXXZtXU««ttXXXXXtXtX>nttXSXXSXSXXlXXXXXXXtU 

CIXTXXX SfeRCUTINF ADDED TO DRAW AND LABEL AXIS FRAKE5 FOR ALL PLOTS XU 
COHKON/TITL/ TTITL<9t6» V 

UP =ii.-yy-2.*sN0S2 u 

Hl=XX U 

H2=yy u 

CALL PLOTC4.,-ll,,-3> u 

CALL PLOT(D»,UPv-3 J U 

DC 25 1=1, HI y 

X=I y 

P=tXEP*X «OFSrTA y 

CALL PLOT«X^O.,Z»’ y 

CALL PLOTIX, ,2,2) U 

H=l/2 y 

B=FLOAT{n-FLOAT(M)-X/2. U 


IF (B) 13,10,25 U 

10' IF 1K5) 15,15,20 y 

15 CALL NUtlBER <X-SMOSZ ,-SNOSZ-.l d,SN0S2,P,D, ,NH )’ y 

GO TO 25 U 

70' Sf; = 1.333*SN0S2 y 


CCCC 

COID 

CC20 

CD3C 

CC'iC 

CC5C 

CC60 

CC7C 

CC80 

CC90 

CICO 

CllC 

D12C 

C13C 

C19C 

CISC 

E16C 

D17C 

oiec 

C19D 

02CD 

C21C 

C22D 




ilr« 



C«LL NUH8ERfX-SNOsZ-SNOSZt-SN-SNOS2,--10tS»J.10.iD^,-l> -U 0230 

C<LL WUHBERto99»0T-5N0SZ -.ID tSH 0S2 ,P .0 , ,iiK > U pyaO 


C«LL NUH8ERfX-SNOsZ-SNOSZ,-SN-SNOS2,--10tS»J.10.iD^,-l> -U 0230 


C<LL WUHBERto99»0T-5N0S2 -.ID tSH 0S2 ,P .0 , ,iiK > |L 


25 CALL PLOTIX,0.|3) (J 0250' 

B = titX-SA.*SLETR5l/2. U 0260 


CALL SrKBOLtB,-SNOS7-SLETPS-,15-.6,SLETRS,TTnLri,K|,0.»5«tI U 

CALL PLOT CO.. 0., 3) ^ ^ U 


DO A5 J:^l,K2 U 


0=0RD*T*0FSET U 

CALL PL0Tt0.,Y.2l ^ lo. 


call PLCTI.2,Yt2> U 

N=J/2 U 


BrFL0ATIJ»-FL0AT|N)-»/2. IJ 

IE 18) 30.30>A5 LJ 


30 IF tK6l 35»35t<»0 0 d37o 

3S CALL KUHBERJ-4.4SW0SZ 1 5.V.SN057.0. 0 . . N L » ii 038n 


<>G 

60 TO <|5 

SN = I.333*SuOSZ 

U 

u 

039q 

DADO 


CALL NUKBERI-.IS -SN-SN-SN t V-SN0S2 ,SN ,10. , 0. ,-l 1 

u 

OaIO 


CALL NuH6ERt999.QrY«SN-SNOSZ.SN0SZ.0«0. ,NLX 

u 

0920 

<15 

CALL PL0H0.»Y.3» 

u 

09 30 


C = ITY-5«I.9SLETR5)/2. 

u 

0990 


CALL SYMBOLf-SNOSZ-SNOSZ-SNOS2-,J5-.6tC,SLETRStTTITL|l,Ll«90.t59 J 

LI 

0950 


CALL PLOTtO.»TY,3) 

aj 

D*I_6jj . 


CALL PLOTIXX,YY,2J 

u 

0970 


CALL PLOTtXXtO«»2J 

U 

0980 


00 5c J= 1 »H 2»2 

u • 

0990 


YrJ 

u 

0500 


IF IY.E0.YY* 60 TO 55 

u 

0510 


CALL PLOTtXX,Y,3l 

V 

0520 


CALL PLOTI3.rVt21 

V 

0530 


IF f «Y*1.I.EQ.YY1 GO TO 55 

u 

0590 


CALL PLOTIO.»y«l.|3) 

V 

0550 

50 

call PL0TfXX»Y*l.»2J 

u 

0560 

55 

CONTINUE 

u 

0570 


DO 6C U=ltHl,2 

u 

0580 


X=J ' 

u 

05 9o 


IF tX.EO.XXl 60 TO -65 

u 

0600 


CALL PL0T«XX-X,YY,3) 

u 

0610 


CALL PL0TfXX-X,0.t2 J 

u 

0620 


IF HXX-X-1.1 ,EO.O.) GO TO 65 

u 

06 30 


CALL PLOT{XX-X“1.*0..3> 

u 

0690 

60 

CALL PL0TIXX-X-1.»YV,2I 

u 

0650 

65 

RETURN 

u 

0660 


END 

u 

0670 
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SCBR0U7INE ARROHtVX ,V7,X,Y,VPfR> 
C6MHON/PICTUfi/BUNNHJ,XX,X«IN,EXEP,YY;YHIK',ORC 
OlHENSlOM PINFOlilfPLXBELIir' 

PI0180=3.fl( 1S9265/18C. 

S IZ E =SQ RT f V X=»VX tV Y ♦ V.Y.l / VPE R 

IFtVX.EO.D. )VX=1»E— 9 ' ' ‘ ' 

*N&lE=-SIGNf'9C.,VX)*ATfiNJVY/VX»/PI01SD 

Xprix-XMINI'/EXEP 

YP=(Y-YHIN)/ORO 

rFIXp,6T.XX .0R.XP.LT.D..09.-YP .6T.YY.0R.YP .LT .C.IRETORN 
SIZ=APINH9./21,*SIZE‘..I5)' 

STZ2=S1ZE-.S*SIZ 

XHE AP=XP<“VX/VPER/SIZC*srZ2 

YHEAD=YP'+VY/VPER/S12E*STZ2 

CALL SYMBOL tXP,YP,SIZ2, 16, ANBLE, -II 

CALL SVfiBOLfXHEAD, YHE AD,SIZ,2,ANBLE,-1) 

RFTIIRN 

EKTRY MOTESlPZNro.PLAREL.NI 
DC ID t=l,N 

yPO=(FUOAHNJ-FLOAT(in#.'3 
CALL SYMBOLfXX*. 1, y'pO,,2,'PLAb‘eHI »,£J.,6 I 
10 CALL NUHBERlXXtl.ZjYPO, . 2 ,P1 NFO ( 1 1 , Q, , 2 ) 

return . . 

END 
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c 


c 


SUBROITINE 'VRROFFCN, K» NO, X, ▼, TITLE, 1NC> 

COKHON/PIC7UR/VPERIN,XX,XHIM,EXEP,YY,THIN,OR.E , 

C0HH0N /FILEID/ IFXl, IFftZ, TF03 , TFDR, 1F0£, 

1 IF06, IF07, TF08, IFD9 , IFID, 

Z IFBl, IF02, 1F13, IFllj, IF15 

3 ,IF16, IF17, IFIB, IF19, 1F20 

DIHENSION Xfl), Ytl), TITLEtTl, V 1 1 200 ) ,V1X I ZOO ) , V2X 1 200 T , 

2 ‘ V3X«200»,V'JXI200>,V5Xf2DO»,VlT I2D0J ♦VZYI20DJ, 

2 V3Yt2DO>,V«lY(20C>,V5Yt200I 

DAT# RO/57, 2957797/ 


VX AND VY HAVE BEEN SAVED ON UNIT IF02 
REMIND IFOl 
REMIND irC2 

IF «IND .NE. IJ GO TO PO 


C 

C 


C 

c 


INDIVIDUAL FLOVS 
H2 = H ♦ H 

11 = 1 - H2 

12 = C 

DO 1C J 1,N0 

11 = II ♦ M2 

12 = 12 ♦ K 2 

1C READ(IFC2J fV<KJt K = 11,121 


DO 3C K r 1,H 
WRITE»6,&0» K, TITLE 


00 2D I = 1,N0 

IX = (I-1>*MZ ♦ 2*K - 1 


lY 3 IX ■» 1 
VT r S0RTCV{IX)*'*2 
TH = ATAN2CVIIY), 
IFIK.EO.IJ VlXilJ 
IFCK.EO.ll VlYtll 
IF<K.C0.2) V2X(I) 

lFCK.ro. 21 V2YII1 
IFCK.E0.3> V3Xm 
IFCK.FQ.31 V3YII1 
IFCK.EQ.PI VAXIIl 
IFCK.ro. P>. VPYtll 
IFCK.EQ.51 VSXtll 
IFCK.ro. 51 VSYtll 


+ VfIY19*2 1 
VtlXl 1*RD 
= VCIXl 
= VCIYI 

- VCIXl 
= VCIYI 

- VCIXl 

- VClYl 
= VCIXl 
= VCIYI 
r VC-IXI 
= VCIYI 


2D MRITE€6,7C1 


I. XCI), veil, VCIXl, VllYt, VT, TH 


33 CONfiNUE 

MRITEC7,15C01 
MRITriT, 15001 
MRlTFt7,15D01 
MRl7r(7,1500) 
HRITFC7,150Q> 
UR ITEC7, 15001 
URITEC7,1S001 


rxc Ji, J=i,NO) 
lYC J1,J=I,N0) 
tVlXCJ),J=l,N01 
(V2XCJ1 ,J=1,N0 1 
CV3XCJI,J=1,N01 
CVPX CJ) ,J=1,N0 I 
CV5X CJI,J=1,ND1 


VPROCCl 

VPR0CG2 

VPR0C03 

VPROCCP 

VPR0CC5 

VPR0CC6 


vpRocoe 
VPROC09 
VPROtlC 
VPROOll 
VPR0D12 
VPR0C13 
VPROCIP 
VPR0C15 
VPR0C16 
VPROCl? 
VPR0C18 
VPR0C19 
VPROC20 
VPR0C21 
VPR0E22 
VPROC23 
VPR0C2P 
VPR0C2S 
. VPR0C26 
VPR0C27 
VP.R0C28 
VPR0C29 
WPR0C3D 
VPR0C31 
VPR0C32 
WPR0C33 
VPR0C3P 


VPR0C35 

VPR0C36 

VPR0C37 

VPR0C36 
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WRITEI7.1500) <VliflJ),J=l,NOJ 
WR1TEI7»150C) J=1»N0) 

WRITFI7,I50CJ (V3Y(J>f J=1,ND) 
WRITEI7,1S00J tyilYfJ>.J-l»ND J 
WRITFC7,1500J {V5YtJ),j=l,NO J 
15C0 F0RHATt0P6El3.8> 

C 


C 

c 

c 


c 


c 


COHBINED FLOW 

■10 WPITE(6,8CI TITLE 


DO 50 I- = I, NO 
RFAOtIFOlJ vm, Vt2) 

VT _ SORTfV.ri}>t>*2 + Vt2}**2y 

IFIVPeRin.NE.O. JC flLL A RROW « VI H »V t2 » »X ( I ) ,Y Cl 1 ,2. I 
TH = ATAN 2 (V{ 2 ), Vfin*RD 
5D WRITEt6,7C) I, XCU, Y(I>, YCl), Vf2), VT, TH 


60 FORHATtlHl, 20X ’INOIVIDUAL FLOW NO. *,I2» 5**0FFB0DY POINTS*. 

1 5X.7AY//T15,*!*, T27,*XI1»*, TAfl,*VtI)*, T6l,*VX«. 

2 T7a,*VY«, T95,*VT*, T1 09, ’THETA I0E6> * //) 

7g FORKATIIH , 11X13, 6(SXF12.6)1 

SO FORHATIlHl, 2GX ’COHEiINED FLOW FOR OFFBODY POINTS*, 5X,7flR// 

1 T15,*I*, T27,*xni*. TiiR.’Ytrj*, T61.*VX*, 

2 fTSj’VY*, T95,*VT*, T1 09, ’THE TA ( DEE) * // 1 


return 

END 


VPR0C39 

VPR0C9C 

VPROC*H 

WPR0DA2 

VPROC93 

VPROCfli) 

WPR0C95 

VPR0CA6 

VPRO C97 
WPRO C9 8 
VPR0C99 
VPR0C50 
VPROCSl 
WPR0C52 
VPR0C53 
WPROCSlI 
VPR0C55 
VPR0C56 
WPRO C57 
VPR0C58 
VPR0C59 
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IS 


SUBROiniKE DR*WtKR,KK » 

SU&ftoUriNF ADOEO To DRAW PICTURr OF INLET WIA CALCp«P PLOTTER. 
DIMENSION X tMOO»,YJilOO» 

COHKON/PICTUR/VPERIN,XX,XMIN,EXEP,YV,YHIH,ORE1 
COMMON /ELDATA/ XON tSOOI |YON< 500) 

KL=KR+i 
11=0 

DO 20 I=1tKE 
N=KK+T-1 

IF tII.GE.«{GC.0R.K.GT.50D} GO TO 30 
■ CHUH TEST EACH (X,Y1 PT. EXCLUDE THOSE BEYOND tXX* FXEP*XH IN » INCHE 
YMAN=YY*ORD*YHIN 

iriLPNCHB.EO.21 YONfN)=YKAN-( YONtNI-YMAK) 

IF IXONfMl-XX*EXEP-XHlN> 1D,10,2S 
1C- IF IY0N<N1-YY*0RD-YHIN> 15,15,20 
IS II=II*1 

XHl»=XONtN> 

Y«II>=Y0M(N1 
20 CONTINUE 

25 CALL LINEIX,Y,II,I,G,3,XKIN,EXEP,TMIN,0RDT 
RFTOBN 

3D WRITE (6, 35)11, V 

35 FORMATclHC,* SCIRCLE ERROR EXIT - DATA POINTS EXCEED 200 ON A SEG 
lOP EXCEED 50C ON TOTAL INLET - * /218) 

STOP 

END 


22 

cccc 

22 

DO 10 

ZZ 

CC30 

22 

Dice 

22 

0110 

22 

0120 

22 

0130 

S22 

C15Q 


22 

C160 

22 

D17D 

Z2 

Q18D 

22 

Cl 90 

Z2 

C2C0 

Z2 

C29D 

22 

C370 

22 

C38D 

22 

0390 

22 

OR 00 

ZZ 

GRID 

22 

CR2G 
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CALL Nl>«etRfX-SHOS2-SNOSZ,-SM-SNOS2-.10,SM,l C.,0. ,‘-i> 

CALL KU«BER<999.0j-5N0S7 -.1Q,SN0S2,P,0.‘,NK1 
25 CALL PL0Tlx,D.i3> ‘ * 

B = *XX-5<1.>*SLETRSJ/2.'. 

CALL SYHBOLfB,-ShOS7-SLCTRS-, 15-. 6,SLETR5 ,TT ITLf 1 ,K > ,0,,5A J 
CALL PL0TtD,,D.,'3) 

DO RS J=1,H2 
y=j ' 

0:0RD*Y*0FSFT 
CALL PL0TtD.,Y*,21 
CALL PL0Tf.2*y,2» 

N=J /2 

B=FL0AT(JJ-F;L0AT(N)-Y/2. 
ir IB» 3O,30»95 
.30 TF IK61 35,35;^0 

?5 CALL _KUHPERI-i(.'«SNOSZ -»15t Y»SNOSZiO ,Ci iNLI 

GO 70 A5 . 

<IC SN r I. 333 *SM 0 SZ 

CALL NUMBERt-.iS -SN-SN-SN » Y-SNOSZ, SN . 10. ,D. J-l) 

CALL K0PPFR1999.D,Y+SM-SN0S7,S’N0S7,0,Q.,NL» . 

A 5 CALL PL 0 Tla,-.r. 3 > 

C = tYY-Si|.*SLETRSI/2. 

CALL SYHBOL<-SNDS7-SNOSZ-SNOSZ-il5-.6iC»SLETRS,TT TTLCltU»9Q 

CALL PLOTCD: ,YY,31 

CALL PLOT<XX,YY ,21 

CALL PLOTIXir.O. i2J 

DO 5d J=l*f<2iZ 

Y=J 

IF lYiEC.YV) GO TO 55 
CALL PL07IXX,Yt3J 
CALL PLtiTfd,,V,2J 
IF t lY-»li».FO.'YYJ GO TO 55 
call PLCT(D?,'Y*1.,3) 

£d call PL0T(XX,Y-»1.,2> 

55 COKTINUE 

DO 6u J-liHi;2 
Xrj 

IF IXiEO.XXJ GO TO 65 

CALL PL0T(XX-X,YY,31 

CALL PL0TfXX-X,Dj,2J 

IF C (XX-X-l . l.EO.O.J GO TO 65 

CALL PLCT(XX-X-I.,0i,3>’ 

60 C^LL PL0TIXX-X-1.,YY,2) 

65 RETURN 
END 


U 

U 

U 

U 

V 
U 
U 
U 
U 
U 
u 
u 
u 

V 
u 
u 
u 
u 
u 
u 
u 
u 

• rS4) U 
0 
u 

. u 
u 
u 
u 
u 
u 
u 
u 
t 
u 
u 
u 
u 
u 
u 
u 
u 
u 
u 
u 


D230 

0240 

□ 250 
CZ60 
C270 
0260 
C29D 
03CD 
C310 
G3Z0 
C330 
C34C 
C350 
C36D 
C370 
0380 
C390 
C4CC 

□ 41Q 
G42C 
0430 
Q44G 
D45C 
04 6 C 
0470 
0480 
C4 9D 
C5ED 
0510 
0520 
D530 
C540 
C55C 
C56D 
CS7C 
C580 
CS9C 
C60C 
C610 
C62C 
C63C 
C64C 
D65D 
C66G 
C670 
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■ StJBftOlJTINE FtOUS IN, N, IPUN) 

INDIVIDUAL FLOWS IINP = II AND COMBINED FLOWS C Al CUL «TED . 


DIMENSION AI5001, BlfOO), VNI50D), VTI5CC1, VNC I SCO I , VTCISODI- 

1 SlGlSODI 

2 , XL50CI, YISOOI, DSI500), SA(SCO), CAI5CC) 

DIMENSION ELGCC35DDI, ELGDI5CCI, CPJIS30I, XPC5CCI, VPISOO, 

1 VJ 15001 ,V2l500I,V3l5 00I,v‘»(50Cl,VStSDC» 


FLOWCCl 

FL0UCC2 

FL0VCC3 

FLOVCCN 

FL0WCC5 

FLOUCOfc 

FLOWCCl 

FLCWCCC 

FL0VCC9 


COMMON /BFLAG/ 108(10, INLIIOI, IFLUCl, NLIICI, LIFTIICI, 

1 iPMFtlD), ISAVIIIOI, ISAV2C10), 1SAV3U0), 

2 eilTLEnO, 71, IBT, 3BST, IBTOT , NELTOT, 

3 ITRRIlO, INMBUDI, CHORDIIOI, lEDIltl, LIFTOT, 

't 1PP9I10, IFSTIIOl, ISECIlol, FTITLCU5J, IPVRIIO 

CCHMON FSISMAS/ CSIGC5CCI, CKI12J 

COMMON /riLElD/ IFOl, IF02, 1F03, IFOR, IF05, IF06, IFC7, IF08, 

^ IF09, IFIO, IFll, IF 12 , Irl3, IF18, IF15 

2 ,IF16, IF17, me, IF19, IF2C 

COMMON /COMBOD/ COL ,I NCL7 ,CLT , ALPHA , SUNOS C ID J ,TLU 110 , 121 , IMO 
1 , ALPHAO, CNUU3I, SMDSWFilOl, MIO(IC) 

COHMON/ROTAT/NROT, ROTRAD(ID) 

COMMON /GCF/ UFIbOO) 

COMMON /ELD/ X, Y, DS, SA, CA, CURVISOCI, DL(SCO) 

EQUIVALENCE CEL6CI1I, Xllll, tFLGDIlJ, WFIIM 
EcmVALENCE (Am.XPIl)}, 16(11 , yPIUJ 

REWIND UNITS FOR NORMAL AND TANGENTIAL ONSET VELOCITIES 
REWIND IFll 
rewind IF12 

REWIND SIGMA UNIT 
RFWlNfl IF14 

7ER0 OUT VNC AND VTC ARRAYS 
DO ID 1 r 1 ,N 
VNC(I> J: C.D 
13 WTCm = C,0 


THE PROCEDURE IS TO FIRST CALCULATE THF INDIVIDUAL FLOWS 
AND THEN THE COMBINED FLOW, THE ONSET VELOCITIES ARE 
COMBINED DURING THE INDIVIDUAL FLOWS CYCLE. 


FLOWCiC 

FLOUCII 

FLOWCIZ 

FL0WC13 

fLOwcm 

FL0WC15 

FLOWCIS 

FL0WC17 

FLOWCie' 

FL0WC19 

FL0WC2C 

FL0WC21 

FL0WC22 

FL0UC23 

FLOWCZM 

FL0WC25 

FL0WC26 

FL0WC27 

FL0WC26 

FL0VC29 

FL0W03C 

FL0WC31 

FL0WC32 

FLOWC33 

FL0VC3R 

FL0WC35 

FL0WC36 

FL0w:37 

FL0WC38 

FL0WC39 

FLOWCRC 

FLOWCRI 

FL0WC(>2 

FL0UC<)3 

FLOW CNN 
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c 

c 


c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 


(?EftO IN SURf*CE COORDS AND GrOMETRT COEFFICIENTS FROF UNIT 16 
REMIND IF16 

READ<TF16J ELGC, ELGD 


BEGIN INDIVIDUAL FLOWS CTCLE 
VHA z c.G 
DO 9G K = J,n 

READ IN NORMAL AND TANGENTIAL ONSET VELOCITIES. 
CALL GETTtIFll, 1, N, VN , 1, VNAJ 
CALL GETTCIF12, I, N, VT, 1, VNA 1 

CALCULATE COMBINED NORMAL -* TANGENTIAL VELOCITIES 
DO 30 I z 1,N 

VNCII) = VMC(I) - VN(I)*CKCK) 

3C VTCCn r VTCdJ ♦ VHI)*CK{K) 

CHECK IF INDIVIDUAL FLOW DESIRED 
IF <IND .NE. 1) GO TO RC 

REMIND A,B ARRAY UNITS 
REWIND IFIO 

READ IN ROM OF SIGMAS 

CALL GETTfIFlA, 1. N, SIG.l, VNAJ 


00 52 1 = 1,N 
C 

c READ IK ROW OF A«B ARRAYS 

CALL GETTdFID, 1, N, A,- 1, VNA T 
CALL BETTdFlO* 1, N, B, 1, VMA ) 


VNCIl = -VNdl 
VNA =0.0 
VTB = 0.0 
DO BD J = 1 ,N 
VNA = VNA + AtJ)*SIGCJJ 
K VTB = VTB + BtJJ*SI6(J] 
C 


c 

c 

c 


VNdl = VNdl ♦ VNA 
SO VTdl = VTdl + VTB 


PRINT OUT INDIVIDUAL FLOW 
write 16,601 K 

63 FORMATUHl, 'INDIVIDUAL FLOW 
1 T19,*VN*, T39, »VT', 

DC 7C I = 1,N 
IFtK.ro.il vltl) = VIII) 
ifik.e6.2i vzdJ = vTd) 
IFtK.E0.3l V3dl = VTd) 
IFIK.EO.B) V4I1I = VTd) 
JFCK.EC.SI V5II) = VTd) 

70 WriTEIG.BO) I-, VNtI), VTdl, 


NUMBER', 13//* 
T58, 'SIGMA') 


FT. NO 



FL0MCA5 

FtOWC<l6 

FL0MC47 

FL0WC48 

FL0UG49 

flowcs'c 

FL0UC51 

FLOWCSZ 

FL0WC53 

FL0WC54 

FL0WD55 

FL0WE56 

FLOWC57 

FLOVE58 

FLOWC59 

FL0WC6C 

FL0WC61 

FL0WC62 

FLOWC63 

FL0WE64 

FL0UE65 

FL0WE66 

FL0WC67 

FL0WD68 

FL0WC69 

FL0WC7C 

FL0WE71 

FL0WC72 

FL0WC73 

FL0W074 

FL0WC75 

FL0UC76 

FL0WC77 

FL0UC7fe 

FL0WC79 

FLOWCeC 

FLOWCei 

FL0WC82 

FLowces 

FLOWC84 

FL0WC8S 

FL0WC86 

FLOWC87 

FLOUCSe 

FL0WC89 

FL0WC9D 

FL0MC91 

FL0WC9Z 

FLOWC9 3' 

FL0WC94 

FL0WC9E 


SIGH) 


FL0WC96 
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6D rORMATUH , 14, 3t8XF12.6»iJ 
C 
C 

9G CONTIMUF 
C 

C INDIVIDUAL FLOMS COMPLETE, HOW DO COflPINED FLOM 
C 

REMIND IFIO 
DO lie I = 1,M 

CALL 6ETTIIF10, 1, N, A, 1, VNA) 

CALL SETTflFlD, 1, N, B, 1, VNA» 

C 

VNA = 0,0 
VTB =0.0 
3 0 lOP J = 1,N 
VNA r VNA V AfJ>*CSI8lJI 
IPO VTB r VTB + BiJ)*C&IGtJ) 

C 

vN(n = vKcaj ♦ VNA 

vim = VTCTIJ ♦ VTB ■ 

110 CONTINUE 

c 

c 

C PRINT THE OUTPUT DATA (PER BODY). 

ALPH = ALPHA*D. 017453293 
COSA r COS(ALPH) 

SINA = SIN(ALPH) 

CHT r D.O 
Xf z E.O 
YH = 0.0 
N1 = C 
NF = E 
C" 
c 

Do 16D 16 = 1,IBT0T 
IF IIPHF(IB) ,LT. Cl GO TO 160 
NB = NLIIB) 

NI = NF 
NF = NF + KB 
J? = Nl 
5 = O.D 
SI = 3.0 
1 = C 

ex = c.o 

CK = D.O 
CKL= O.D 
C 

IF fWROT .ME. OJ R0T2 = ROTRA D I IB 1**2 

c ' ■ ' ■ ' ■ 

1?D J1 = J2 + 1 
J2 r J1 ♦ 40 

IF (J? .6T. MFl J2 = KF 
VPITEaF06,130MFTITLEfI),m 

.1 - , _ ALPHA, ALPHAO, IBTOT, CL7, ccL, 

1 NELTOT, IOB(IB>, ( BTIJLE f IB 1 1 = 1 ,71 NB* ' 

c ■ ■ • r 

130 FORHATIIHI,* DOUGLAS AIRCRAFT COMPANY TkO-DlKENSlONAL », 


FL0WC97 

FL0WC98 

FL0UC99 

FLOWIGd 

FLOHICI 

FL0U1G2 

FL0W1C3 

FLOM JG4 

FL0V1C5 

FLOW 106 

FL0UID7 

FLOHICB 

FL0M1C9 

FLOWllO 

FLOVlll 

FL0U112 

FL0U113 

FL0W114 

FL0H115 

FLOwlle 

FLOWllI 

FL0U116 

FL0W119 

FLOM120 

FLOW 121 

FLOM122 

FLOW 123 

FU5MI24 

FLOW125 

FLOW126 

FL0WI27 

FL0MI28 

FL0H129 

FL0H13C 

FL0W131 

FL0M1S2 

FL0W133 

FL0W134 

FL01U35' 

FL0W136 

FL0W137 

FL0H138 

FL0W139 

FLOUiAO 

FLOWlAl 

FL0W142 

FLOM143 

FL 0 H 144 

FLOW145 

FLOW146 

FL0H147 

FL0W14B 


FLOW 15 C" 

FLOWISI 

FL0W152 
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1 *P0TE«T1«L FI.OV PR0GPAM*/1H0, ’COMBINED FLOW •* 11A6/ 


2 

IHO, ’ALPHA 

=*, F11.6, T3D, ’ALPHA 0 =* , 

P11.6, 


3 

T60,’N0. of 

BODIES 12/ 



9 

IHC, » CL 

=», F11.6, T3Q,’ CHORD =’, 

F1I.6, 

• 

5 

T60, ’TOTAL 

ELEMENTS ’, 13/ 




6 IHC.’BODY ID = •, 12, T2D, 7A4 , T60, »NO. CF ELEMENTS *, 13/ 

7 IHD, T14,’X», 728, ’Y», TttZt’S’, TS6,*VT’, 

e T7 C,»cP’, T93,*J’, T101,»SIBMA», TU7,*VN’) 


DC me J - J1,J2 

I = r + 1 

SD = PStJ»/fZ*D*SUHD5«IP) J 

S = SI * SD 

SI = S ♦ SD 

CP = l.D - VT(J»**2 

CrjIJ) = CP 

DCP = 0.0 

IF INROT .EO. 01 60 TO 195 

DCP = ♦ ¥fJI**2J/R0T2 

DCP T DCP - 2,0=»IXI JMSINA - Y t J»*C0Sfl 1 /ROTR API IB ) 
1«I5 CP = CP ■* DCP 
T = CPtDSCJ) 

CK = CN - T*CAIJ) 

-ex = ex -► T*SAIJ) 


CML = CKL + T*ICA IJl-XM ) ♦ SA ( vt) « t Y ( J I -YK |J 

IF liPUN ,E0, 7) HRITEI7, 155) X (J), Y IJJ, CP, I 
IRC- WriTEIIFD6,150) I, X (J), Y (J>, S, YTIJ), CP, J, CSIGCJ), VNUJ 
150 FORPATIlH , 13, 5l3XrlI.6}, 16X13, ?C3XF11.6,U 
C 

155 F0RPATI3F10.5, 96X14) 


IF IJ2 .NE. NF) BO TO 120 
CLI = CN*COSA - CX^SINA 
CLI = CN^SIMA 4 CX*COSA 
write 16, ?DG) CN, ex, CLI, CD I, C^L 
2rC F0RMATI1HG,I7HINTEBRATED VALUES/ 

1 IHC, 5HCY = , FID. 5, 5X5HCX ~ 

2 IHG, 5HCL = , FID. 5, SXSHCO = 
CPT = CMT ♦ CML 


160 COKTINUE 

WPITEI6,21D) CHT 
REWIND 7 

WRTTE(7,15C-3) (XCJ),J-1,N) 
WRITLI7,15C0) CY<J),J=1,N> 

WRITE 17,1500) <Vl(J),J = l,N» 
WR1TEI7,1S00) (V2CJ),J=i,M) 

WRITE (7,1EQ0J I V3C J),J=3,N) 
WPITEI7,15C0) «V9t J), J=1,N) 

WRITE 17,15001 I V5I J) ,Jil,N) 

210 FORMATIIHC, IIHTOTAL CM = , FI Q.51 
153D FOPHATI0P6E 13.8 » 


RETURN 

FND 


F1C.5/ 

F10.5, SXSMCtl- = , FIQ.S) 


FLOW IS 

FL0W159 

FLOWISS 

fLOWl56 

FLOW157 

FL0W158 

FLOW159 

FL0W16D 

FL0W161 

FL0W162 

FL0W163 

FL0W169 

FL0W165 

FL0U166 

FL0W167 

FL0U16S 

FL0W169 

FL0W17C 

FLOW 171 

FL0W172 

FL0W173 

FL0W179 

FL0W17S 

FL0U176 

FLOW177 

FLOW178 

FL0U179 

FL0W18C 

FLOW 18 1' 

FL0W182 

FLOUI83 

FLOW189 

FLOW185 

FL0W186 

FLOW 187 

FL0U188 

FL0W189 

FLOW 19c 

FLOW 191 

FLOW 1 92 

FLOW193 

FLOW199 

FLCW195 


FL0W196 

FLOW 197 
FL0U198 
FL0W199 
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SUBROUTINE MAINI MANICGI 

C NAN1CC2 

DTHENSION XO <5 00 ) t TO tS 00 1 * OS C500 1 1 SA ( SOO T i C A(SOO') ■ HANICCS 

1 ELGCI35aOI« ELGDfSOQ] HAN1CC4 

C . HAN1CG5 

COHK0N/T2TL/TTITI.l9,e> 

COH«ON/PICTUR/VPERIN,XX,XMIN,EXEPtTy,YMIN»ORD 

COUPON /6FLAG/ IDBflOT, INLCIQI, IFUIO), WLtlOJ, LIFTUOT, MAN1C06 

1 lOKFUOT, ISAVl (10) , ISAV2U0), ISAV3(1C), ' HAN1CC7 

2 BTITLEIIO, T), IBT, IBST, TBTOT, NELTOT, HANICOB 

3 ITRB(IQ), INHB(IO), CHORDS 1 10) . IBD (IQ) , LIFTOT MAN1CQ9 

4 ,IPRB(10)r IFST(10)f ISECUO, FTITLEIIS). IPVRflO) )1AN101C 

C HANlOll 

C HAH1C12 

C - . MAN1C13 


COMHON /COHBOD/CCLi INCLT» CLTt ALPHA, SUHDS (10) , TLU ( 10 ,12 ) , IND HAN1C14 
1 , ALPMAO, CNUnO), SPOSWFdOl, HlO(lr) 

c 

COMHON /FILEID/ IFILEI, IFILE2, IF1LE3, IFILER, IFILE5, 

1 IFILEG, IFILE7, IFILE8, IFTL E9, IFJLIO, 

2 IFILll, IFIL12, IFIL13, IFIL 14, IFIH5 

3 .IFIL16, IFTL17, IF1L18, 1F1L19, 1F1L2C 

COHP.ON /MOATA/ ISOL ,IOFr ,NONU ,NBNU,IPRINT ,)(0 RC,H 
COMMON /ELDATA/ XO, TO, DS, SA, CA, CURV(SOO), DL(ECO) 

COMHON /6C0FFS/ lfF(5Da) 

EQUIVALENCE (ELGCt!), X0(1)>, (ELGod), WF( 1)» 

DATA KLANK,PLABEi./6H ,6HALPHA = / 

C 

C FORM ELEMENTS 

CALL TIHFV(T) 

URlTE(b,2C) T 

20 FORMAT (1H0,*CALL ELFOPH, T - F9.3, *EECCNDS.») 

IF(M0RE.NE.11CALL ELFORP ( SUNOS ) 

C 

C READ IN FLOW TITLE CARD 
ITVP = 8 

READ(S,30) tFTITL£(I),I=l,ll) .ITTPE 
3C FORMAT (11A6, SXIl) 

IF (ITTPE .NE. ITYP) CALL TYPEllTYP, ITYPE) 

C 

DO 35 1=1,9 
TTITL(I,2)=PLANK 
35 TTITLa,n=FTITLE(I) 

IF(M0RE.EC.1.AND,VPER1N.NE,0. . AND . I OFF. EQ. 1 ) CALL PLOT (XX+4. ,0. ,-3 > 

C READ IN FLOW CONTROL CARD 


MAN1C15 
KAN1016 
MAN 101 7 
HAN 1018 
MAN 1 CIV 
HAN1C2C 
MAN1C21 
MAN1C22 
MAN1C23 
mAn1C24 

MAN1C25 
HAN1C26 
MANl 027 
/ MAN1C28 
MAN1C29 

MAN1C31 
MANl C32 
MAN1C33 


HAN1C36 
MANl C37 


HAN1C38 
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17YP = 9 WSM1C39 

READ 15»£»0)’ INCLT, CUT, ICHORD, CCL» IND» 1SCL» IOfF» NONU* HANICRQ 

1 NBNU,.VPEftlN,lPRlNT«HORE tl'TTPE 

IFCVPERIN.NE.C. 1 CALL PLOTIO 

tfO FORHAT <11, 4XF10.5, 2X11» 2Xria.5, 5 (R XU > , F9 . 3 , II ,9X1 1 , IXIU' H 

IF CITTPE .HE. ITYPI CALL TVPEUTYP, ITYPEJ HAM1C‘(3 


IFtVPERIN.EO.D.IGOTO «S 
R^AD{5,191IXX,XHI^^,EXEP,Y^,YMI^,0RD 

191 F0HMATIeFia.3> 

CALL PLOXlsrxX , YY,EXEP,ORn,XKIN ,YHIN,.15, .1,C,C,1,2,I,U 

NSTAR7 =1 

DC 93 IB0D=l,ia7 

IPSrlFLIlBODI-IKLflBOD) 

CALL nRAWlIpS.NSTART) 

43 NSTART=NSTART*1PS*1 

CALL NOTESICLT.PLABEL ,11 


45 IF INONU .NF. D) ISOL - 1 HAN1C44 

IF lINCLT .rO. 01 ALPHA = CLT RAN1C45 

IF IICHORD .EO. DJ CCL = 1.0 «ANIC«I6 

C HAN1C47 

S FORM matrices MaNIOIB 

CALL TIMEVm MAN1C49 

WRITEf6,501 T HAN1E5C 

50 FORMAT tlHD, ‘ELFORM COMPLETE, CALL NAFORM, I r * ,F9. 3, ‘SECONDS .» IMANICS 1 
CALL HAFORM < M, NONU, HBNU, ISOL, IPRIMl HANiCS2 

; MANIC53 

CALL TIHEVtTJ MAN1C54 

RRITE 16,6D> T MAN1C55 

6*' FORMAT UHD, ‘MAFORH COMPLETE, CALL SOLVE, T = », F9 .3 , ‘SECONDS. * 1 MANIC56 
; MANiCST 

CALL ASSEHP yMANlC58 

; - MAN1C59 

: SAVE ELDATA AMD GCOEFS DATA HAN1C6C 

REUIND IFIL16 MAnIC&I 

VRITE{IFIL16> ELGC, ELGD MAN1C62 

MANi:63 
MAN1C64 
MAN1C65 


RET.URM 

END 
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PRO^AM COMBIN- 2 D 




t 

c 

c 

c 

c 

c 

c 


THIS IS THE MAIN PROGRAM WHICH CALLS’ THE SUBROUTINES TO 
COMPUTE the 2-D combination SOLUTIONS FOR BOTH COMPRESSIBLE 
AND INCOMPRESSIBLE VERSIONS. 


1 

2 
3 

1 

2 

1 

2 

1 

2 


COMMON /COOPD/ XON L70C) , YON f 7 DO 1 , XOFF 1 2 0 0 T t Y 0 Fp C 2 0 C J t S <700 I » 

SU700),XtEST,x7FST1,XTEST2,YCL,TCU,YCLI,YCL2,YCU1 
YCU2,XR1,XR2,XRH,YR1 ,YR2, YRHiCUTOf I ,CUT0F2,CUTOFH , 
ELKD,ANG(7CC» ,AR«70C1 ,AR0FF(2LU) 

COHMOw /VELOC/ VIC7aO),V2(7,:CpKV3<7IDT,V4(700),V5<7PG),VlXC2C01, 
V2X( 2001 tVIXTZOOJtVIX <2C0) »V5X 1200 ,VJY(2L0) , 
V2Y(200I ,V3YI2QC) ,V4Y (2C0) ,V5 y (2DC) 

COMMON /CONT/ VC»VS1 , Vs2fXHC, xMCl >XMC2iUD0TC, UDOTC 1 ,UD07C2, 

TITLE { 31 fVINF , ALFA,A ,EtC iD, AlC , a 2C, A3C * AR C » ASC , A 1 1 
A21,A31,AR1 ,A51,A12,A22,A32,A»l2,A52tVIC,VICl,VIC2 
C PM.MON /COUT/ NTtNSI ,NHtNP ,I U , NX ,KN 0 ♦ ICO HP, K . NXHl 1 ,NXHI2 ,NXHI3 , 

NST2,NST3,NST7,NPPR( 3C),IPAK(3n,Hl,«2,ICO“Pl,lPL, 

IHIIB 

COMMON /CCNplT/ TTOTAt ,PT ,PSTAT ,TST AT ,ps T »7C , ATOTA L , PTC ,RH0ST , 


1 

COMMON 

1 

COMMON 


1 

2 

3 

R 


/WRITy 

/SOLUT/ 


CCKMON /SOLUTO/ 


RHOTOT ,ASTAT,QCINF 

AAIC.A A2C,Aa 3C, AARC, AA5C, A A 11 , AA21 » AA31 , A ARl , A AS 1 , 
AA12,A A22.A A32, AA42, A A52 

V8AR(7031 ,VBAR0(2CD) , VINC (7D0) ,VXInCI2C01 , 

VVINCT 200) ,RHOa« 700) , RPOR T (TOO ) »RHOB 0 t 2D0 ) , 
VCOH17D03,REOOT<200 J, vRE t 2 ED) , VRECOH t 220) , 

VXCOmC 2001 , VYCOH(200) ,THE TA(2C")»PSOPTCt7CC), 
PSOPT17 00),CMACH(700> ,XMACH(7CC),CPIf7C0) ,CPC('7C3), 
RHOI f7PDl 

PS0FPC't2“0) ,P50FP <25Q) ,CMACOC 220) ,X"AC0«2CCl , 


1 


RHOOI I2CC) 



Ci ' n n 
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C 


CCKwov /PICT/ VPEejN,XX,XMIK',FXEP,Yr,YHlH,OPD,E:HST0R5liL,iiAA 
COH-ON' /C'lPLOT/ XPEN,YPEN,NXfe,Ny,IPFN,XLAPEL( JO>iYL»BEL»l!?l 


PIHFK510N XPLOT t 7"D).YPL0T(70CJ «KKK ( 8 > , P (14 } 

CALL JNPTR 

call search 

CALL AKC-LEF 
A AAArVI^F 
VSAVE = VlAif 
iFdcoKPi.EO.n ic6‘f'P=:: 

IF (icomp: .Eo.e» icof*p-i 

IFdCOHP .EO,l> VINR:VINF*(lt('-n.2*IVlNF/AT0TAL)**2t**2,5 

VCSAVF-VC 

VflSrVSl 

VC2S=VS2 

vrzvic 


VSJ=VTC1 

VS2ZVTC? 

1- CALL SOLVE 
VC r VCSAVF 

vsi=vris 

Vj;rvC2S 

VlNFPrvlNF 


1 


1 


VlNFrVSAVE 

IFdHUE.ro;^) GO TO IJ 
UFi TF (t,,lCG> 

tfPITE(6vir-5i AlliA2i;Ail ,A41,ASJ-,Ai2,A22,l32, 
A42,-A52 

IFfPp.EC.ll tPITF<6,llci AiC,a2'C,A3C,Ai(C ,AGtUl2,A22,A32, 


,A42,A52 

IFC tnl.ro. rf.AND,(H?.Eb.G)J WKlTEt&.llSj A 1C , A2C , A SC , A4C‘, ft 5 C , 
1 . All,A21iA31,A4J,A5i 

KFITF t6, 12i'J A»p;r,[i, VIMFP 
GO. TC 12 
n WPITE (6,lcj I 

PKITC 1C2) AlCiA2C, A3C,A4C 
KCITEtttirSJ A,e,C,VIMFP 
12 IF( ICCHP .EO . i > calL COHCOP 
c«lL ''ksodY 
CALL OFSpy 


The following code ^Lots ps/pt vs s and hach number vs s. 

IFtCUTOFl.LFiO.C) GO TO 2G 
DO 15 iri.NSi 

lFtS'(T)iLT;T}C) Simz-Sll)^CliTOFl 
IF(C (D.gE .r.oj S1(I>= Sdl/CUTOFl 
15 CONTr*’UE 
J= • 

J i=r 



191 


DC 16 lrl,N51 
ir< SI (I ) .GT. 1 .0) GO TO 16 
IF! I.LT ,NXHI 1 ) J=J+1 
IFlJ.CO.ll TS=I 
IFlI.GE.NXHIl) Jl^Jl+l 
16 CONTINUE 

IPL'l 

CALL PLTfR(Jl,J,NXHTl*IS^l) 

20 IFICUTOFH.LF.C.O) go to 30 
I V: NS 1 + 1 
ITrNH 

DC 25 1=TN,TT 

1F<S(T).LT.0.D) si <TI=-$ tIl/CUTOFH 
IFISUI.GE.O.O) SUIl:= SlD/CtJTOFH 

25 continue 

J1 = 0 

00 26 l=lNtIT 

7F{ SI (I) .GT.l.O) GO TO 7b 

IFtI .LE..NXHI2) J=J + 1 

lFtJ.ro. 1) ISrl 

IFtI .PT.NXH12) J1 = J1 + 1 

26 CONTINUE 
IPL = 2 

CALL PLTCRtJlf J iNXHI2,1S,1) 

70 IF<CUT0F2.LE.t3.0) BP TO 37 
lATHH + l 
DO 35 I=1N,NT 

irtStn.LT.C.D) Sl m=-stl )/CUT0F2 
IFtSt I) .GE .P.C) Sldl- Stll/CUT0F2 
75 CCNTIMtE 

J 1='' 

po 36 I=IN,NT 
irtSltlJ.BT.l.ai BO TO 36 
IFtl.LE.NXHTI) jrj*l 
IFtJ.eo.ll 1S=I 
IFII.6T.NXHI3) 

36 CONTINUE 
IPL = 3 

CALL PLTERt J,J1 iNXHI3 tIS»2 ) 

37 TPL=ir 

IF I VPtTR JN.EO .D> GO TO «C 
KKK m = M 
KKK (21 = C- 
KKK<31 = 3 

IFtIHUB.tO.r J KKK(3» = 2 

KFK to I 1 

KKK ( 5> = 1 

Pin - 3.C 

Pt2) r XX 

Pt3) = X«IN 

p tm = XKIN+XX^EXEP ■ 

PtSJ = YY 
P tb 1 - YHIN 
PIT) = YUIN^YY^ORP 
PI8) = 1 -.0 
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P f9 J r D. □ 

P(ic> = f-.e 

p'nn = :.o 

P(12> = •'..D 
PH3) =' .-,ci 
Pill) )• = 9E..-r 
I I=C 
i II = L- 

DC 2tO r=l,NSJ 

i F( xoNii ) .n .5CHIN) ro. TO 2 n 

IF ( Y,0N(H .LT.YHIN) C’O to 2DC 
I F(X0K(I )-XX+FXEP-XHI M) 131 ,13C,200 
13C IF( yoMI ) -YY*ORD-YHIN ) 135 » 1 3 5 , 2 '^0 
1.35 Il:ll-*I 
111=111*1 
XPLOTCIII IrXONlIl 
YPLOTdll >=YOfJlI ) 

'2^1' CONTlX'Ue 
KKK (6)=I1 
Tlrr 

IFdHtlB.FO.'") GO TO 25:; 

N^=NS1+I 
00 25T T = KN,t<N 

IFTXONIU-.LT.XHIM) GO TO 2<tC 
TFJYOKd l.LT.YMJM) pO TO 2>t0 
IMXOYII )-XX*EXEP-XHIN'> 23Ct 2 30t24C 
'23C IF(Y0N(I»-YY#6RD-YKIN> 235,256,240 
235 11=11*1 

I1I=ITI*1 

XPL0T<1II1=X0N<I) 

VPICT <III )=VON<I» 

24C CONTINUE 

KKK (7) = II 
25; 11=T 

MKr NH+1 

00 ?7*" i=nn,n7 

IFtXONm.ET.-XMIN) GO .TO 270 
irtY'O-M-I,) .'LT.YKIMT -go to 27C 

1 F (XOKCI ) -XX*EXEP-XHlN) 26t, 26 D,,27,C 
'2'6Z IF( yCNII 1 -YY*ORD-YHIN » 265,265 ;2,7C 
26b 11=11*1 

Tii=.m*i 
XPLdT:(in) = X0N('I> 

'YPL0T'<III‘)>:Y0N'<vI> 

2 70 CONT-INUE 

IF(IHUB.eO.O) KKK «-7 1=74 
I Ft I'HTfS .NE . iKKKIt 8|)='I1 
DO 267 -1=11, "3 
'XLAPtL'II)=,TnLE(I} 

2RC CONTINUE 
XPEN=‘’.D 
YPEN='-.0 
:iFEN=-3 
'MX6 = -1'8 
-NY = r 

‘C AL L rftLPLVt XRL-0T,,;YRL:0,T .;KKK,,'P,1 
"4C- STOP 
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ORIGINAL PAGE IS 
OP POOR QUALITY 


UQ F0RKAT(/,16X,‘V1’,1?X, •V2»,1?X,*V3',12X, 
in FOPKAT{/,lfcX,»Vl*,12X, *V2’ ,12X,'V3',12X»*V4’,/» 
m r OR M a TI?X,» CONTROL* ,3X,4(lPt:iD.3,4Xn 

1P3 F0RHAT(/,1DX)’A’.13X, •e*,13X,*C*,UX,*VINFP*,/,6X,<(( 1PE10.3,4X) ) 
ll-j FCRf'ATI2X,*LOWER’,/t2X,*PiSSAGE',3XV5nPE10.3,4X ),/,2X**UPPER’,/, 
1 2X, •PASSAGE*, 3X,5(1PE1C. 3, 4X)) 

lie F0RMATI7X , ’CONTROL ’ , 3X , 5 ( 1 pE ID . 3 , 4X J , / , 2 X, * UPPER ’ , 2X, •P ASSAOE * , 
1 3X,5C1PE1D.3,4X)) 

115 FORMATI2X,*rONTROL* ,3X,5(1PE1D.3,4X),/,2X,’L0WER*,/,2X,*PASSAGE*, 
1 3X ,S t IPE 10. 3 ,4X ) ) 

12C, F0RPATt/,10X,*A’,I3X, •B’,13X,*C*,13X,*D*,11X, 

J *V1NFP* ,/,feX,5(lPElP. 3,4X1) 

end 
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SL.BCOIITINE INPTR 

CCM^'OM /COOPD/ XON(7Dn*VOKt'7CO>,XOFF(20C),YOfFf^Cr),SC70PJ, 

1 51 (7rC>,XTEST,XTESTl,XTEST2,yCL,,YCU,yClJ,,yCL2,7ClJl, 

2 YCU2*XR1,XR2,XPH,YR1 ,Yt?2.yRH,CUT0ri ,CUT0F2tCUT0FH, 

3 £LND,AMGI7CD),4RI7PP) ,AR0FF(23r} 

CCMKPf. /VF{.nC/ VH7?D» ,V2( 7COI ,V3 (7?0) »Vi|t7!?C),V‘ t 7r0) ,V1X(20C J , 

1 V2Xf.2CO> ,V3X <2 i:q) , VRX (2CD»,V5X <2o;> f V1Y,<2C''I , 

2 V2Y (Z0P)<V-3Y-('2C0I , VQY (200 » , V5 y (200) 

COMMO^• /CONT/ VCfV51iVS?»X«C,XXCl,Xt'C2iWD0TCfWD0TCJ,WD0TC7, 

1 TITLE(3) *VINF,.ALFA,A,B,C,D,AlCrtZC* A3C.A<IC«*5C,AH, 

2 A21 ,A31.,AA1 ,AS1,A12,A22,A32,A«2,AS2 ,V1C,VIC1 , V1C2 
CfHHOK: /COUT/ NT,NS1,NH,NP ♦! y , MX I'KN D , ICO MP, K , NXHI 1 ♦MXHJ2 ,MXH 1 3 , 

1 NST2tN&T3,MST7,MPPr( 30 J , I RAK ( 3 f) ,Pl ,«2,IC0“PltlPL, 

2 I HUB 

CPPPO* /COMni T/ TTOTAL »PT ,PSTAT,TSTA7,PSTATC,AtOTAL,PTC,RHOS-T , 

1 RHOTOTjASTATt.OCINF 

CPHPPM/Pl(fT/VPEPlN,XX.,X«IM,FXEP.,yy ,yHIN,OC>D,ERSTOR ,ALt.AAA'A 


THIS SL'f'OUTINF READS DATA FRO** 'f.OTH CARDS AKO DISK FILES. 

REAC (f., j;r» .TITLE '■ 

HDITL(6,1D1) "TITLE 

RFAp( ii-j NT ,N51,MH,NR,IH,KX,KKD«lC0MPl,IHUe 
UriTL (6, 111’) NT ;NS1 ,NH,NP,IW,MX,KNDtlCOHPl flHt'B 
PFACCSvIZC:) VC,VSJ ,VS-2, VI NF.AL-F a, XHC,XHC1,XHC2, ttotal.pt 
yPITt (6, 131 > ’VC.VSl ;V52'iVIMF,'ALFA .XHC.XHCl ,XHC2,TT-0TAL.PT 
RFAG(S,'1?0) *ELND,HPOTC,WDOTClrWDOTC2»P.STAT,TSTAT,CUToFl,rOT.OF2, 
1 :CUTOFH,-VPE:RIN 

RFiTf t(i, 12 D ELNO.HnoTC.HDOTCl , W00TC2.PS TAX, TSTAT.CUTOFl.cUTOf 2, 
I CijTOFH.VPERIN 

IFt VPFRTN.NF.pj REA0(5,13D1 XX , XMlN , E XE P , Y Y ,Y PIN , OPD 
1F( VPFftI\,:V’E.-'’) HPITC(6fl313 XX.XMIN.EXEP.YY, VKIM.OPD 

FT r TOTAL MUPPtR OF ON-BODY POINTS. 

NSJ = total n-U“BER pF ON-sBOPY POINTS PN LOWEP SHPOUD 
NH = TOTAL NU»»PFR OF ON-BODY POINTS ON UOWFfi SHROUD AND 
-HUB . 

C TU = L - WEIGHT FLOW -DATA AT CONTROL STATIONS I.NRUT 
C = 1 - P.ACH' «U"6tRS AT CONTROL ,S T A TI ONS I N?UT 

C = 2 - VELOcTTIES at CONTROL STATIONS INPUT 

C NX = 1 S'IPERSOMIC velocity CORRECTION -applies . 
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ORIGINAL PAGE IS 
OP POOR QUALITY 


C KNO : C fiATA HOT SCALED. 

C =6 PATA scaled 3Y CONTROL STATION PASSAGE HEIGHT. 

C ICOHPI r C COMPRESSIBLE VERSION 
C =1 INCOHPRESSIPLf VERSION 

C NOTE — TVO OF THE THREE CONTROL STATIONS’ DATA MUST BE INPUT, IF IHllB NE C 
C THUS = C NO HUP 
C 
C 

RFADI<^,mQ) XTEST.VCl ,YCU 
WRlTEtOfl'H) VTEST.VCL ,VCU 
IFdHOB.EO.") GO TO 3 
READlB,mO> XTFSTl.YCLl.YCKl 
WRTTET6,1‘U> XTFSTJ ,YCL1,YCUJ 
READtS.lHD) XTEST2,TCL2,YCU2 
UPITE<fc,141> XTFST2,YCL2,YCU2 

3 READl5,mC» XR1,XR2,XRH 
WRITE(6,141) XR1,XR2,XRH 
REACTS, 14DJ- YRI,VR2,YRH 
WFITE(6,141J YRI,YR2,YPH 

C XUST,XTEST1,XTEST7 ARE THE LOCATIONS OF THE CONTROL STATIONS 
C downstream OF ThE HUB, BETWEEN THE HUB AND LOWER SHROUD, 

C AND BETWEEN THE HUP AND UPPER SHROUD, RESPECTIVELY. 

C XR1,XRH,XR2 ARE THE POINTS ON EACH OF THE BODIES WHERE 
C SURFACE distance EQUALS 2ERO. 

READ(7,150> <XON(d) ,jrl ,nT 1 
READ<7,15Q) <YON(J),J=!,NT) 

REAP{7,1G0) T VK JJ , j: 1 ,NT) 

READ(7,150) <V2TJ>,J:l,NT) 

READI7,150) (V3«J),Jrl,NTJ 
REAnt7,15u) <V4< J> ,J-1 ,NT) 

RFA0t7,150) <V5l J) ,J=I ,NT) 

IF(NP.GT.lr-t) 60 TO 4 
REAP(7, : 50 (XOFF ( J) , J=J, NP ) 

P'"AD{?,150) (YOFF( J), J;l,NP) 

READ{7,1B0) ( V1X(J», j:l,NP) 

PFAD(7,153) ( V2X( J) , J=J,NP ) 

READ(7,]50) ( V3X(JJ, J:l,NP) 

R£AD(7,15D) ( V4X ( J T , J=1 ,NP ) 

PFAD(7,I5C) ( V5X( J>, J::l,NP J 
REAn(7,150) ( V1Y( JT, Jrl,NP> 

PEADt7,lSC» ( V2Y(J>, Jrl,NP) 

RFAD(7,15c) ( V3Y( J> , J=3,NP I 
RFAD(7,150» ( V4Y(J), Jrl,NP) 

REA0(7,15D> ( VSY( J> , jrl, NP ) 

GO TO 5 

4 READ(7,150> ( XOF F ( J > , , l r,n ) 

READ(7,15t» (YOFFI J>, J=I,10r) 

READ(7,I501 { V1X( JT,d=l,lCrj 
READt7,15P) ( V2X< J>, J=l, lOrj 
RFADC7,15C> ( V3 X ( J > , J= 1, 1 u C ) 

READ(7,150) ( V4XT J), J=l,icr) 

READt7,lS0» t V5X(Jt, J=l, luri 
READt7,150T C V 1 Y t J > , J= 1 , I t C 3 
RFAD(7,15G) ( V 2 Y ( J ) , J -1, 1 3 CD 
READt7,150) ( V3Yt J>, Jrl, U'’) 

READt7,150) ( V4Y(J3,d=l, ICn ' 
fEADt7,15D) ( V5Yt J), J = l, ILti) 
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c 


RFAD17»153) 
RFAD (7,lSa» 
RfAD<7,l 50) 
REAP f7, ISO) 
READ (7, 150) 
READ<7',15D) 
RFAD<7,1'50) 
READ<7,1S0) 
RFAP17,1 50) 
RFAD)7,15C) 
READ) 7, 150) 
READ<7, ISO 
5 UPITFC6, IfcO ) 
UPITf It, 170) 
ifficoKPi .eo 
I FllCCMPl.EO 
I F ( 1 HU& . F 0 . 
1F( JHUB.NE.r 
I FIFLK'O.EO 
AL = ALFA 


(XOFF ( J) ,J: 
(YOFF( J)til: 
( V1X(J)|J: 
I V2x<J)tJ: 
( W5X(J),J: 
I VMXtJ)»J: 
( V5X(J)|J: 
( VXY(J),J: 
( V2Y(J),J: 
( W3Y(J),J: 
( VRY(J)tJ: 
I W5Y(J)»J: 

TITLE 


101 t»p ) 
101 ,RP) 
101 iNP) 
101, NP) 
101 ,NP) 
in, UP) 
101 ,NP) 
101 ,NP ) 
101 , IP) 
101, NPI 
101 ,NP> 
101 ,RP) 


.0) WRJ TE I6,ie 0) 
,1) WRITE(6,17S) 
) UPlTFItflPR) 

) HRITE{6,19C) 
,r) ELND=i.r 


CALt CONST 

THE FOLLOKINO scales THE DATA PY THC VALUE OF ELKD. 
or. IE I-l ,N7 
XON n l = XON<T)/ELND 
Y ON (1-|=Y ON (11 /LLND 
1,- CONTINJE 

DO ?f 1=1, NP 

XCFF (T) = xOFF(l')/ELNn 

YOFFM)pYOFF(I)/FLNO 
2C CO^Tl^tUE 
RETURN 


C * + ORHATS**=t*# 

irO FCRPAT(3A6) 
in FqrvAtUH ,3A6> 
lie FPRPAT19I4) 

111 FORKATUH ,9,14) 

12.C FCRPAT( CPlCF.e.OJ 
1?1 FOfiPATilH „rPlDF6.3) 
iro FORHAK r-P6FlC,u) 

131 FOR*'AT,( liH ,r.P6F10.3) 

140 FORNATl DPSFIC^.O") 

1«1 FORNATdH ,PP3F13.’3) 

150 F0RHAT<tP6E13.e) 
l&E' FORPATl 1H1,40X,3A0') 

■17D F0RPAT(///,?X,*2-n COMBINATION SOLUTION*) 

175 FORMATt/,6X,<*TNCOMPRESSIBLE VERSION*) 

1$0 FORMAT</ ,6X,, •,C;OnPPE'S;SJBLE VERSION*) 

1P9 FORMAT(/,6X„'*COM,BINA;TIOH OF .THE -FOLLOWING P.-ASJC S.O.LUff'I..ONS'* , / ,-9X., 

1 *1, UNIFORM AXIAL’ ,/,9X,.’.2, 1)N IFORf ,CR0S5FL OW • , 9X » 

2 *3. VORTICl’TY ABOUT LORER SHROU D* , / ,i9)( , *.4 . .VO.RTICIT'Y APOU 
3T UPpf'ft SHR.OU0’,/) 

’190 r.CRMATC /.,6X,<.*C0NB-I NATION OF .THE FOLLOUI.N G 'fl A S JC SOL UT-JONS » , / , 9X , 

1 *;l. UNIFORM AXIAL • ,./,9X, *2. UN.I FORM .CROSS F.LOW /,,.9X , 

2 ’-3., VORJICJ'TY ABOU.T -LOUER SHROUD *, /,>9X, ’.4 . iV ORT<IC’JT Y APOU 
3T HLB*,/,9X.,-*5. VORTICITY 'AEVOUT -UP.pFr SHROUD.* ,/•,! 

END 
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SUEPOUTiNt CONST 

CfMKOM /COORD/ 'XON(7DC),YON(7C.O),XOFF«2CCl,YOFFI2rr),S«7CO>f 

1 SK7CIC) ,XTFST,X7EST1 , XTE S T2 , VC I , VCU , VCL 1 , VCL2 , YCUl , 

2 YCU2,XP1 ,XR2|XRH,VR1 , YR2 , YBH t CUTOF i ,CUT0F2 t CUTOF H , 

3 ELND.ANG 170!: ),AR <7C0) iHROFF (20: ) 


1 

2 

1 

2 

1 


COKFOW /com/ VC.VSI, VS2,XKf ,XKC1,XMC2,WDOTC,UD01C1,WPOTC2, 

TITLtC3>,VINF,nFB,A,BtC»DiXlCiA2CiA3C»ARC»A5Ci*ll 
A21»A31.Am,Abl,AI2,A22,A32',A<l2,A52,,VlC»VlCl,.VlC2 
CCHPO^ /COUT/ NT.NSl, NH,NP ,TU,NX,KN0.,1C0HP,K, F'XHI1,NXH12,NXH13« 

KST2,NST3,NST7,NPPPC30),IRAK(3C),MI ,M2,1C0mpi , IPL , 

I HUB 

CCMPOK' /CONDI7/ TTOTAL ,PT,PSTAT,TSTAT,PSTATC,ATOTAL,PTC,BHOST, 
RHOTOT,ASTAT,C|CINF 


« 


this subroutine calculates the constants UStO IN THE PROORAP 

PI:3.1>I1592SEA 

P1=C 

Kz:r 

IF< IHUB.TC.f ) GO TO 5 

IF< (TV.EC.C). AND. TVDOTC.EO.'.C) > Hl=l 
IF<(IW.E0.C) .AND, ( UDOTCI.EO . J.il> ) K?=l 
IF I nw.EO.I).AND.(XMC.EO.f'.r)) Hl = l 
irtlJW.EO.il .AND. t XMCl .EQ.C .0) 1 «2r 1 
1F( nw.EC.Zl .AND.tVC.EO.O.On Hl = l 
TFt (IW.EO.ZT.AND.tVSl.EO.D.rn M2rl 
5 PIO JS*rPl/l8C.C. 

R2156F= 1716.06 
G r 32.17 i( 

PST A Jf = PSTAT 

IFt tPSTAT.NE.Z.r) . AND . f TSTAT.NE.r ,Dl ) GO TO ll 
irtPT.tO.C.Ol PT = 2116.23 
IFlTTPTAL.EO.r.C) TTOTAL = 518,69 ^ 

ATOTAL : 09.(.09*S0RTtTT0TAL) 

CATOT = 1 .2-C.2*tVINF/AT0TAL)**2 
PSTAiC = PT*CAT0T»*3. 5 
PTC :: PT 

RH0T07 : PT/IR2i56E*TT0TAL > 

TSTAT = TTOTAL*CATOT 

RHOST = PSTATC/tR2156e*TSTAT) • 

PSTAT = PT-'i.5*RH0TnT»VINF*VINF 
ASTAT = <i9.r09»SQPTI7STAT) 
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60 TO 15 

ASTAT = «l9.f>i-9*S0PTtTSTAT) 
RHOST-= PST4T/(t?21S68*TSTAT » - 
AhINF = VINF/ASTAT 
CAHINF r 1 .r40.2*AHINF««2 
PTC = RSTAT*CAHINF-**3 .5 
PSTAT = PTC-£?.5«RHOTOT#VINF*V1NF 
■PTrPTC 


TTOTAL : T5TAT*CAHIKF 
RP070T - PT/<RZ1’568»TT0XAL) 

ATOTAL = ‘I940C’9ASORT< 7T0TALJ 

J5 AC = YCU-VCL 

VSONIC : ATOTAL/1.726 
VSOk-CC = .ATOTAL/SPR.TU .?) 

IFlIH'JB.ro.Cl 60 TO 16 
ASl = YCUl-YCLl 
.A?£ = TCU2-YCL2 

3 F t 1 1 W'.F 0 . n . AS D WDO TC «E 0 « fj • C ) ) WOOTC - WOOT C1 + Ir DOT C2 
IFUIV.fo.ci.anD.CHDOTCI.BO.u.O,).) WDOTCl : WDOTC-UOOTC2 
IF( n vf.EO.Ol. AND. (.wr) 0 TC 2 ,.E 0 ..L...TH UD0TC2 - VPOTC-UOOTCl 

-16 IFdU.EO.ll J50 JO RC 
GO TO 5>^‘ 

at- VC = AT0TAL«XKC/S0R.T( l.C+XBC**2/5.0) 

IFMHUB.EO.rj ,iO TO 25 

VSl = ATOTAfFXMCl/-SCRT(l.C*XHCl.**2/5.0) 

VS2 = AJ0TAL-9.XMC2/SDRTI1..0+XHC2AA2/5.CJ 
GO TO 25 

5t IF(lk.E0,2-) GO JO 25 

VIC : .wn0TC/.(6^RHnT0T»AC).M?.D 

CALI VEAfilTLVIC, ATOTAL,, RMOTOT.RHOCI 

Vr = UD0TC/(6^PH0C*AC )«J2,.D 

IF < ZHuB.EO. r) -GO -TO 25 

vrci = WDO,Tri/-<&«RHOTO.T>>AS.l.)*12.0 

VTC2 = WD0Tr.2,/-<G*PH0T0T:*A.S2t)*12,.C 

CALL VFARiIT ( VJCI.A TOTAL ,r’hOTOT,,RHQC-1.) 

■call Vb'ARlT {VJC;2, ATOTAL., RH0J0T,RH0C2-I 
VSl r .U00TCl/<&#t?HOCl’FASM,*12.0 
VS2 = W£*OTC?y <G,*RR0C2*AS'21.*12.0 

25 I Ft VC .GT. VSOAiCC ) VR I T F 1 6,,.l 1 6 ) VC 
I F { VC.6.T. VSONCC J VC r .VSONCC 
IF ( IHUB . t 0 , F’l GO To 26 
TF(VS,1.6T.V,S.0fgCC.) -W RI TE 1 6., M 7) V?! 

I Ft VSl. GT, VSONCC, » VSl =iVSONCC 


‘IF(V.S?.r,T,.V50NCC-> VFaTE.t6, 1.161 V.S2 
1 F (VS2.GT , VSONCC,) ,VS2 = . VSONCC 
26 IF(KND..BF_,6,) go TP 35 
30 IF ( (KVD . EO . -il .■OR.J KfjD.Go . <t ),j ELND 
IFitKND.EO,. l»rOR. tiKND.EO.blO FLND 
I'Ficknd.eo. o.>,.,oR.;tKND.co.5),) !e'lnd 

AC = .ACJELNO 
rru = YCU/ELND 
YXL = YCL/ELNP 

XRi = xri/e;lnd 

XP2 = XR2/ELND 
YRl = YFI/ELNO 
•YR2 = YR2/ELND 
XTCST :: XTEST/ELND 


;YCU 

YCU-YCL 

I.O 
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35 


IF(IHUB.EO.O) 60 TO 35 
ASl = ASI/EIHD 
AS2 = AS2/ELNt) 

YCUl = YCUl/FLND 
YCU2 : YCU2/fLf.n 
YCLl r VCLl/ELf^D 
YCL? r YCLZ/FL^^ 

XRH = XRH/eiND 
VPH = yRH/ELND 
XTESTJ z XTESTl/ELNO 
XTEST? r XTEST2/ELNP 
PITOT = R2l5bS*TTOTAL 
6RH0 r 6*PT/TT0TAL 
C1E2RT = O.5*RH0ST/PT 
VFOAT = VInF/ATOTAL 
VrOAT : VC/ATOTAL 
VSIOAT = VS3/AT0TAL 
V*:20AT = VS2/AT0TAL 
COKl r 1 .0-n.2*VC0AT**2 
CC^^ r J.0-0.2*VF0AT**2 
COKJl = l.C-C.Z^l'VSlOAT^^Z 
C0N21 = J #D-t.2*VS20A T*#? 
KSORTF = C0N2'»*2.5 
RSCPTC = C0N1**2.S 
R5CPT1 = C0Nli«^?,5 
RS0RT.2 = C0N21’P*2.5 


■)f, POOR QUALITY 


IF( JIl'.EO 
IF( (IW.EO 
1 F( (Itf.EO 
IFl (Iw.FO 
IF{ (IV. EO 
IF( iiv.EO 
IFdHl'a.E 
F - wnOTC 
IFtWDOTC. 
IFCWDOTC. 
I F (WDOTC. 
IF(WDnTC. 
IF ( VDOTC. 
I F( WDOTC. 
JF(VDOTC. 
F = wOOTC 
If (WDOTCl 
IF(WD0TC1 
IFCUDOTCl 
IFCWDOTCI 
IFCWDOTCl 
IFCWDOTCI 
IFCWDOTCI 
F = wnoTC 


. I ) . OR . 
. I ) .OR. 
. 1 ) .OR. 
. 1 } . OR . 
. 1 ) .OR. 
. 1 ) . Oft . 
O.'') GO 
1+MDOTC 
EO .O.u) 
E 0 • O . G ) 
EO.C.C) 
EO.O.Q) 
EO.C.u) 
EO .0.0) 
EO.D.i.) 
-UnoTC2 
.EC .O.C 
.Eo.o.r 
.EP.C." 
.ED.G.Q 
.EC.C. C 
. E 0 . o . C 
•Eo.c.n 
-WOOTCl 


(IW.EO. 2>) VIC = VC*RSORTC 
(IW.EQ.2>) VICl = VS1*RS0PT1 
(IW.EO. 2)) VIC2 = VS2*RS0RT2 
(IW.£0.2)> VDOTC = VIC»R*RHOTOT*AC/I2.C 
(IW.EO. 2)) WOOTCl = VIC1*6«RH0T0T*A51/12.C 
(IW.EO. 2>) WD0TC2 - VIC2*G«RHOTOT*AS2/12 .C 
TO 36 

2 

VIC : F/(G*RH0T0T*AC/12.C) 

Call vparit c vie. atotal , rhotot,rhoo 

VC = F/(G*PHOC*AC)>f 12.P 

VCOAT z VC/ATOTAL 

com z 1. D-D.2*VC0 aT**2 

R50RTC = CCN1**2.5 

WDOTC z F 

) WTC1= F/(G*rH0T0T«As 1/12.CJ 
) CALL VpARn(VIClt»TOTAL,RHOT0T.PH0C) 

) VSl = F/ (G*RH0C*AS1 )*12.D 
) VSIOAT z VSl/ATOTAL 
) CORIl Z 1 .L'-O.2*VSI0 aT** 2 
) RSORTl = C0N11**2.5 
) WDOTClz F 


IFCWDGTC2.FC.0. (■) 
IF(WDOTC2.EO .Fi. C) 
IF (WDOTC2.EO.D. C) 
IFCWnoTCZ.EO.C.D) 
ir(WD 0 TC 2 .E 0 . 0 ,r) 
1F{WDOTC2.EO.D.O) 
IF(Wti0TC2,E0.C'.C) 


VJC2= F/(G*RH0T0T»AS2/12,C» 

CALL V8ARTT( VIC2, ATOTAl<RHoToT,BHOC1 

VS2 = F/ (G»ftH0C*AS2)*12.C 

VS20AT = VS2/AT0TAL 

C0N21 z 1 .D-C.2*VS20AT*42 

RS0PT2 = C0K21**2.5 

W00TC2Z F 
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IFdCOHPl.EO.lJ VSl = VICl 
IF* ICOKPl.EO.l) V&2 : VIC? 

^6 IFdCf’KPl.EO.l) VC = VIC 
WNFOVr = VINF/VC 
IFlUNtl.LT.S) VOOTC = VDOTC/FLND 
IF(KND.1 ;t, 8'> VDOTCl = WtlOTCl>ELNO 
IFtKKO.LT.8J HD0TC2 = «POTC?/ELND 
PSPTC r 1,0*-C1C2RT*VC**? 

PSPTCI = 1 •r-ClC?RT'^VSl*>l'? 

PSPTC? = 1 .''-C1C?PT#VS2*P? 

PSPTJr - 1 . r-Cl D2RTAVINF**? 

PSPTCT = RS0RTF*C0N2 
PSPTl r RSORTl^CONJl 
P5PT2 = RSOR72*CON?1 
PSPTCC r BS0RTC*C0N1 
Xf-IKF = VFO»T/tCON2=»*r.S) 

1F( XKC.EO.C.Ll XHf r UCOA T/ tCOM I . 5 J 
IFtXpri.EQ.c.CJ XHCl = VS10*T/tCOKn**0, 5) 

IFtXpfZ.EO.n.P) XHC2 = VS20AT/tC0t;21**C..SI 

OINf : P T» ( 1 .0-PSPTlF I 

OCIKF = PTC* tC. 7*VFOAI**2#RSORTF» 

CC = PT* (1 ,0-PSPTr ) 

CCC = PTC*|f.7*vCOAT#*2*RSORTC> 

OCl = PT* t 1 .0-PSPTCll 
0C2 = PT» 1 1 .C-PSPTCZ) 

OCIC = PTC*T0.7*VSI0AT**2*RS0PTn 
0C2C r PTC*<C.7*VS20AT*+2*RS0RT2) 

TKETC r TTCTAL/Slfi.€.9 
PFL r PTC/2T16.23 
IFtlKOP.EO.OI 60 TO 57 
MFTPKI r YcUl/YCLl 
HBTPP? r YC12FYCLI? 

WT'CTIP UOOTCl*SCiRTt'THFTC)/OFL 
WrOT2F = Wf)riTC2*S0RTl THETCl/DEL 
57 wnOTCC r WDOTC* SORT tT HETC J /DEL 
IFtlCOHPI.EO.If) 60 TO m 
WPITEl6.lt/lJ 

wpiTEte.ni) VC, xHc.oc,, PSPTC 
irtIHUt.EO.f'J 60 TO. 38 
WPITE{6,1?1J VSl ,XHC1 , OCl, PSPTCI 
WFITET6,131J VS2,XMC2,0C2,PSPTC2 
Ifi WP:TF(6,141) VIK'F,XminF,OINF,PSPTIF 
EC TO 51 
VI WRITE t6,]f'D» 

WPITEf6,110) VC ,XMC,OC fOCC, PSPTC .PSPTCC , RSORT C 
IFtlHMB.EO.r-J 60 TO 39 

WRITE 16, 120) VSl.XHCi ,0C1 , OCIC ,P5PT C 1 ,PSPT 1 , R SORT 1 
WRITE (6,130) VS2,XKC2,OC2,OC2C,PSPTC?,PSPT2,ftSORT2 
39 WRITF (6, IVD) VINF,XH1HF,0INF,CCINF,PSPTIF, PSPTCI, RSORTF 
El WPITH6,15G) 

‘”'C»VS0NIC,yS0HCCiUD0TCR ,WDOT 1R.WD0T2R 

"PI TE (6f 
WRITE <6.165) 

WRI TE(6, 170) TSTAT,PSTAT,PSTATC,4STaT,RH0ST,WC0TC,WD0TCl ,WD0TC2 
_ UKIT£f6,175) VIC, VICl, VIC2 
WRITE(6,185.J 

WR14E (6,155) TT0TAL,P7,PTC,AT0TaL,RH0T0T,THETC,[>EL 
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WRI7Et6,160) ^ 

W(?nFt6,185) 

URITF (6,i7!3> XR 1 , Y R1 , XR2, Y R ? ,XTES T , YCt , YCU , El KD 
W(?ITECe.,l9a) 

WRI TE 170) XTESTI.YCL 1,YCU1,XTESTZ,YCL2,YCU2,HPTPR1,HBTPR2 
VRITF 16,210) CUTOFl ,CUTOFH ,rUT0F2 
WPnEt6,l60) 

k'PITf {6*?0O NT,NP ,KS1 , MH , K ND , I W , NX , I COHPl , IHUB 
WRI TE{6,160) 
aiFA = iLFi*PTOIsr' 


1C2 FCRPAT(1HD,27X,’HACH» ,llX,'nYNAHIC PR E SS URE *, 13X PRESSURE RATIO*, 

1 PX, ’■DENSITY RATIO’ ,/ ,1PX, ’VELOCITY’ ,7X ,’NO, • ,9X, ’ INC’ , 1GX» 

2 ’COMP’, IIX, ’INC’, 6X,’C0MP’t/> 

101 FrBPAT(lH0,27X,’HACH»,llX,’DVNA>1IC PR FSS UPF *, IJX ,* PRESSURE RATIO*, 
1 / , IPX, ’VELOCITY • ,7X , ’NO. ' , 17X, ’INC’ ,25X, ’INC* ,/) 

lie F DR KaT( 3 X, ’CONTROL ’ , IPE 1 0 . 3 ,2X , 2 I 1 pE 10 . 3 , 5X , IPE 1 C • 3 , 3X ) , IPE 1 £ . 3 , 
I 6X,1PE10.I,/) 

111 FORPATt 3X, ’CONTROL ’ , 1 PE 1 0 ,S , 2X , IPG 1 C .3 , 9X , 1 PE It. 3 , 20X , IPE 1 0 . 3 , / ) 

116 F0PpAT(2X, ’CONTROL STATION VELOCITY = *,1PE13.M,' EXCEEDS VSOMC.’ 

1 ,/,’ PROCEEOTNO WITH VC : VSONIC. IF THE CONTROL STATIO*' ’ 

2 ’IS NOT AT THE THROaT, ReSUBHIT WITH A LOWER VC.*) 

117 FCBHAT(2X, ’CONTROL STATION VELOCITY r 'ilPElS.P,’ EXCEEDS VSONIC.’ 

1 ,/,’ PROCEEDING WITH VSI r VSONIC. RESUBPIT WITH A LOWER ’ 

2 *VSa.*) 

118 FCRHAT(2X, ’CONTROL STATION VELOCITY " ’,1PE13.‘(,’ EXCEEDS VSONIC.* 

1 ,/,» PROCEEDING WITH VS2 = VSONIC. PESUBH.IT WITH A LOWER ’ 

2 *VS2.*> 

12C. F0RPAT(3X , ’LOWER’ ,/ ,3X , ’PASSAGE ’ , IPE ID .3,2X ,2 ( IPE 1 0 .3 , 5X , IPE 1 C .3 
1 ,3X),lPtl0.3,6X,lPElC.3,/) 

1?1 F OP p ATI 3 X, ’LOWER’, /,3X, ’PASSAGE ’ ,1PE1C.3,2X , 1 PE 1 C . 3 ,9X , IPE 1 0 . 3 , 

1 2CX,lPElD.3,/> 

13L FOP P ATI 3 X, ’UPPER’ ,/, 3X , ’PASSAGE **1PE1D.?,ZX ,21 IPCIQ ,3,5X ,1PE 1C.3 
1 ,3XJ,1PE10.3,6X,1PEIC.3,/) 

131 F0RPATI3X , ’UPPER’ , / , 3* , ’P A SS AGE ’ , IP F ID .3 , 2X ,1P E 1 C . 3 ,9X , IPE 1C . 3 , 

1 20X, IPE1C.3 , /) 

14: F0PPAT(3X,’FPEE ’,/,3X,’STRFAP ’,1PE1D-3,2X,2I1PF10.3,5X,1PE1C.3 
1 ,3X),lPElt),3,6X,lPElC.3,/) 

141 FORPAT(3X,’FREE’,/,3X,’STREAH • , IPE 1C. 3,2 X, IPE 1C .3 ,9X ,1 P£ 1 C. 3 , 

1 2DX,1PE1D.3,/J 

ISO F OR** ATI /,9X,’ ALPHA ’ ,9 X , ’ V I NF / VC • , 7X , • V SONIC ’ . PX , ’ VSONICC ’ , 7X , 

1 ’ WDOTCR’ ,BX, ’uDOTLCR’ ,£X, ’ WDOTUCR ’ ) 

15S FCRMATC7X,7I1PE10.3,4X) ) 

16D F0RP.ATI/,1X,’ * 

1 

165 F0RHATI/,9X,’TSTAT’ ,9 X , ’ PSTA T ’ , 9X , ’ PST AT C ’ , 8X , • A ST AT • ,9X , ’ RhOST A T • 
1 ,7X,’WD0TC’ ,9X,’WD0TL’ ,7X,’W00TU’ ) 

170 F0RPATI7X,6nPElD,3,4X) } 

175 FCRKATI/,9X,*VIC»,llX,’VICL’,lCX,.’VICU’,/,7X,3(lPF10.3,qXM 

]fO FORPATC/, 9X, ’ TTOT’ , lOX, ’PTOT’ ,1QX , ’PTOTC *,ox , 'ATOT*, lOX.’RHOTOT ’ , 

1 8X,’THET’,10X, ’CEL’) 

1P5 FORPATl/, lOX, ’XPll • ,1 1 X , ’ YBI 1 • , 1 GX , ’ XR 1 2 ’.9X, ’ YR 1 7 ’ , 9 X , ’XTEST » , 1 EX 
J , ’YCL’,11X, ’.YCU’ ,10X, ’LNn* > 

19: F0RHATI/,9X,»XTEST 1 ’ , 1 GX , ’ YCL 1 ’ , 1 OX , ’ Y CU 1 ’ , 8X , ’ X TE ST2 * ,1C X , ’ VCL ? • , 
1 1>.X,’YCU2’,5X, ’HUB-TIP L • , 6X , ’HUB -T1 P U’) 

2l~i, FORPATl/, 1 OX,’ NT’ , 5X, ’NP’ ,5X, ’NSl ’, 5X, • NH’jSX ,’KM>’,5X,’IW’. ,5X, 

1 ’NX’,5X,’IC0HP1’,5X,’1HUP’ ,/,9X,I3,4X,I3,5X,I3,4X,I3,5X, 
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2 I3,4y,n,5X<I2,7X,n,9X,i3 ) 

?IL’ forhat(/,7X,»p-s cutoff l’,?x,*p-s cutoff hub 
I 8X,lPf lD.3t5X, 1PE10.3,5X,1PF10.31 

END' 


P-S CUTOFF U’,/» 



UUOLlO UUU 


203 


OKIGWALPiG^ 

OF POOR QUAliEI^' 


subroutimc search 

COMHON /COORp / XO H ( 700 > ,T ON C7H 0 i »X0FfJ2 0 0 JjiXpFF t?0 Dl ,S (7n p ) t 

1 ' SllTD0UXfESr,'xfESTr,XTE:ST2,TCL,YCU,YCLl,yCL2,YCltl,’ 

2 _ YCD7.XR1 .KR2.XRH.YR1 . YR2 . TBH . CUTOF 1 .C UT0F2 .C UTOfH . 

3 ' ' ” ELND,aWGC700 ItAR ( 70D > tAROFF<200> 

COMMOK /C O UT/ HT , NSl . WH ,N P .1 W ,NX,KNn . ICO MP,K, NXHI I ,NXHI2jt«JiX3, 

T NST2,NST3,NS'T7,NPPR( J0J,TRAKr30),Kl ,H2,IC0«P1 ,3PL, 

2 . . . , 

COnKON /c’ONT/ Vc»VS1,v's?,Xh’c,X«C1 ,XPC?,HDoTC»WDOTC J,WPOTC?, 

1 _ _ TITlF{ 3Jt''INF'j’*LFfi,A,B,C,D,AIC,A?C,A3C,AtlC,A5C,All, 

?■ ■ 'a 21 ,A3J ,A*tl7*51%Al?,A22,A 32,A<l2,A52,VIC,VICl,V3C2 

COKHPN /CONDIT /_ JT 0 T A L jPJj P ST A T ,T ST i^TjlP SJ AT Cj A Tp T A L , P TC , RHOS T , , 

1 rhoto't ,astat,ocinf 


THIS StIfiROUTTNt FINOS THE _HIGHLIGHT_ON EACH_BODY _AND .. 

calculatf's areaT for all the on- and off -body points. 

PI = 5.'l ‘415026511 

ON-BODY POINT CALCULATIONS 

’ ”jj = NSl + 1 
JJJ = NH * I 

DO 10 J =2 ,NS1 

IF<X0M4 JJ .6F.X0M(j- 1J l_,GO TO 10 
NXHll = J 

10 continue 

iFtiHuB.EO.nr’GO TO 21 ' 

J1 = JJ 1 
J? - JJJ-1 

□ 0 20 J =J1 ,J2, 

IFtXONC Jl.GE.xbvL j-i) ) GO TO ?0 
.. NXH12 = J . . . . 

XH12='X0N (NXHI2I 
2a_C0NTlNUE_ 

21 J> : JJJ-*i 

Of 3d J = J2.NT 

IFtXON(J),6E.XON(J-in bo TO 30 
NXHI3 : J 
30 CONTINUE 

NST3=NXHI3. 

CALL SURF 

, IFll HUB.EO.O) .XMI?_=99999. 

’ '\HI2=CYbNl’NXHi3l*Y0NtNXHn ) i/2.0 

D C qp J : l.NxHIl . 

P - SORT ( rXON(J»-XON{NXHIl i 1**2 + ( YON I J 1 -YHI2) **? > 
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THETA = ACOSCtXOMfJJ-XOKKNXHIlU/Rl 

THETAP r THETA * 0 .570796*< XON t Jl -XON H » X0N(NXHIl » -XOmO » > 

A(?tj» = ?.0*{pl'-THETAP)*R 

AO CONTINUE _ 

II = NXHrl+1 

DO 60 I =_IliNSl , _ 

IF< (ABS(X0NrNXHIlJ-X0N<NXHI3) J .GT -6 . Q j ) . ANO t XON { I » .LT'IxoM '( NXHI 3 ) J 

1 .ANt).(XONm .LT.XHiet t Bi) T o AS 

irtXoNTIJ.Gj.XHizi GO TO 50 

NN r NH+1 _ , 

call TNTFR(X0N,Y0M,NN tNXHI3,X0N(I TtY » 

ARtI> = Y-YONdl _ _ _ 

NST3 r I 

60 TO 60 _ 

•iO CALL INTER(X0N,Y0 'n', JJ,NXHI 2,X0NtI»,Yl 

Afftl) = Y-YON<lJ 

GO TO 60 ' 

AS APtlJ r Y0N(NXHI3)-Y0N(I> 

IF{XHI2.LE.X0NCNXHI3) > NSTS’ri ‘ 

60 CONTINUE 

IF{ IHUb.EO.O) eO TO 71 ' ‘ - » 

DO 70 1 = ^,NXHI? _ 

CALL INTER{X0NrYbNiNST3,MSl,X0N(I>»Y » 

ARtll = YONUl-Y _ 

70 CONTINUE 

71 DO 80 I = JJJ»NXHT3 
IFtXONd J .LT.XHleJ 60 TO 85 
NST7 = T 
JUP = JJJ-l" 

CALL INTER(XON,Yf>N »WXHIZ> JUP>XqNCH .Y> 

"ARCTJ = YON'fI)-Y 

GO TO 60 • _ 

85 CALL INTERJXON,YON.NXHTI»NSltXdN<I) ,YJ 

ARCH =_YONfI)-Y_ _ _ 

80 CONTINUE 

IFtIHUB.EO.Ol 60 TO 9l_ _ „ 

n = NXHT2+i 

JUP = JJJ-l _ _ _ ■ „ 

DO 90 I - II, JUP 

MSTl =NST7*1 __ 

CALL INTERtxbNiYON,JJJ,NSTirxONII) ,Y) 

ARfU = Y-Y0N«I> _ 

IF(X0N(I).6E.X0NCNXHI3>) GO to'90 ' ^ 

AP»I>=AR<NxHI3> _ 

90 CONTINUE 

91 NS = NXH13+1 _ _ 

" 00 'Tod i - ns,nt ’ -- - - . . . 

R r SQRT( (X0N(I)-X0N(NXH13n9*2 + C^^I-YHI?)>»«?) _ 

THETA = ACOSteXONfil-XON’tNXHISM/Rl " " ‘ • — ' - 

TKETAp = tHETA » 0 .57 q 796* < XON 1 1 )-~X0HfNT >>/ tXONf NX HI 3 1-XOW ( NT 1 1 
ART I I r 2.0*<PI-THETAP»9R 
100 CONTINUE , 

OFF-BODY POINT CALCULATIONS 

K =0 
NPlTNP-1 



205 


DO 105 I = l.NPl 

IF(XoFFtl).LJ.XHI?J ^p, TO .10,1 ‘ „ . 

IF(I. EQ.il 60 TO 101 

L=L + 1 - - 

iFlL.EQ.Llj eO TO 101 
AA=YOFFtI+ll-YOFFf I > 

AB=YOFF(I»-Y(^FtI-i ) 

IFIABSCAA-ABI.GT.D_.001 > GO TO 1,02 — 

101 IFtX0FFCI).EO.XO'FFCI*in GO TO 105 
1D2 K=K*1 ' _ 

NPPRCKJ - I 

L-MPPFIK) . „ . . 

L1=L+1 

105 CONTINUE . „ ... 

K=K+1 

NPPRCK) = NP ... . _ 

00 110 T=1,NP 

IC =0 

IFCI.LE.MPPRCll) Klrl 

IFC I.LE.MPPRCl) 1 S_0__T0 liJ - 

DO 111 J=2,K 

'if ( II ,LE .MPPRCJ 1.1 •and . (I.6T .NP PRC Kl-»1 

111 CONTINUE 

112 IF (XOFFCI » .1T.X0N<NXHI11 1 Go Tq_20D 
CALL INTER! X0N,V0N,ltNXHII fXOFF CD ,Y1J 
call rNTEfHXON,YON,NXHTl,HSl,XOJ^fI),Y2J 
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V1=NS1+1 

CALL INTERCX0N,Y0N,JJJ,NXHl3,X0FFtIl_iY31 
CALL INTERCXON,YON,MXHI3,NT.XOFF(IJ ,Y«tl 

IF ( IHUB .nE .0 ) call in TER ( xON , yON»N 1 *NXHI2 »X0FF (1 1 1 Y5 1 
IrCXOFFfll.LT.XONtNXHISJl 60 TO 115 


IC=1 . . 

ns' IF(IC-£0-ll GO to 140 

IFCYOFFtll.GT.YZ), 60 TO 120 
GO TO 130 

120 CALL INTERCX0N,AR,tNXHI 1,NS1 .XOFFtll ,Y I 
AffOFFfI)=Y 
IPAKCKll =2 

IFC XOFF ( II .GT.XHI21 GO TO ISO 


60 TO no _ . 

130 R : SORT « <XOFF<I 1-XOM CNXHIl n**2+TY0FFCI 
THETA r ACOSt tXOFF (I»-XONLtNXHIin/R 1. . 
THETAP = theta ♦ □ ,57(1796* CXOFFCI l-XON ( 1 

AROFFCII r 2.0 »< P1- THE TAP)*R _ . 

135 continue 

IRAKCKll = 6 . ... 

GO TO no ’ 


l-YHI?)**2l 

n/cxoNTNXHin-xoNci » i 


140 1 F(Y 0 FFCI>.GT.Y 1 >_ GJ) To 145 . . . . 

IRAKCK1J=6 

R = SORT! tX 0 FFtI)-X^N{NXHIin** 2 »{Y 0 FF(Il,-:Y^HI. 2 H"*l^’ — — 

THETA = ACOS< (XOFF (TJ-XONtNXHiin/R» 

THETAP = THFTA ^ 0 ,_57D_7?j6*JJ(0FF tl ) -J^pN,(_n_) / OH (_NX.HIJi30fOfJC_l 11 — 

AROFFCII = 2.0 sUPI-THEfAPl*R 

150 continue _ . , ._ .. . 

60 TO IID 

145 IFC yOFFCI J .J-T.Y41 60 TO 1JD_ . 

R = SQRTC tXOFF(II-XONfMXHI3})**2+»YOFFCIl-YHI2»**21 
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THETA = ACOS<CXOFFn>-XO«INXHI3n/R) 

ThETAP r'THETA ♦ 0 .57079&* ( XOFF ( II -XOra N T ) J / ( XON { MXH X3I -XOh tNT Kl 
AROFFCn = ?.0 #(PI“THETAP )*P ' 

It?AK(Kll = 7 
160 CONTINUE 

60 70 no _ _ _ 

l70 IFIXOFFti J.GT.XKI?) GO TO 180 
IRAK<K1)= 3 _ 

AROFFCIl =; Y3-Y?' 

175 CONTINUE ^ 

6o TO lid 

180 IF(Y0FF(n.LT.Y5J GO TO 190 
IRAK(Kl) z H 

NS7 = MH _ 

CALL INTER « XOm YON ,NXHI>iNS7 ,'XOFF 1 1 

ArOFFCI) = Y3-Y6 

CALL rNTFR{x6N,AR,NXHl?»NH",X0FF(i) ,Y» 

IFfXoFF <I >.LT»X'0N{NXH13J) AROFFdJrY 
185 Continue 
eo TO no 

190 APOFFtn = VS-Y2 

195 CONTINUE _ _ 

IBAKtKl) = 5 ” 

60 TO 110 
200 IRAKIKD =1 

A'ROFFflF = ARCNXHIIJ 
205 CONTINUE 

no continue 

RETURN' 

END 
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SL'6 SOUTINE AN6LEF 

CO^>HO^ /COOBD/ xON( TOPI » Y 0 N< 7 PP> «XOFFC 2P0J t VOFF (2PC) »SI7Cni , 

1 SHTC0)t!CTEST,XTESTl,XTEST2tYCL,VCU,TCLl,YrL2,YCUl, 

2 YCU2,XPl,XR2.XPH,YRliYR2*YPHtCU10F 1 ,CUT0F2 ,cUTOFH , 

3 FLVD,ANGI7CD>t*R(70CltAROFf<20PI 

CCHPON /COUT/ NT,NSl|NH,NPtIM|NXiKNO,ICOHPtl*i NXHI 1 iNXHt2 iNXHI 3, 

1 NST2,NST3, NST7,NPP»C 3D) tIRAK {3P>»H1 t»’2 tlCOHPl, IPL» 

2 IHUB 


THIS SUPPOUTINE CALCULATES THE ANGLE OF THF EOUY SURFACE 

NS = NSl-1 
DO IL I = 1,NS 

A^Gtl) = AT AKH YON ( I* 1 l-YON (1 1 I / ( XON (I + l ) -XOM { I) 1 > 

1-j CONTINUE 
NT2 = NH-1 

TFdHU&.EO*'') SO TO 21 
N - N$l+1 
DC 2C I = N,NT2 

AnGII.) = ATANnYON<I*n-VON(I))/(XON<I'»n-XON(I>n 
2C CONTINUE 

23 N = KT2+2 > 

NT3 = NT-1 
DC 3C I =N,NT3 

ANG(I) r ATANMYONd+l )-YON(I))/(XOmi-*l)-XON(ini 
3D CONTINUE 
RETURN 
END 
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Sl’6R01!TIfj£ SlIBF 

COK-tlF /COOPD/ XONt7COl\¥ON(7rDJ,XOFF-(2nC,),YOFF<2r-n‘,S(700) , 
i Sl(7'70}»,XTE:ST,X7tSTl,X7E572,YCL,YCU,YCLltYCl:2’,YCHi, 

2’ YCU2,XRltX(?2,XRH,YPl,YP2,YRH,CUT0Fl,cUT0F2,CUT0fH, 

3 ELMO,ANG<,7.0C:),,AR<70C.) , AR.O.F.E.fZO") 

COHKOA /COUT/ NT,, MS 1 , NH , NP , lU , N.X, KMO i ICO HP , K , NXKI I ,NXHI2 ,MXH 1 3 

1 NSTZ,NST3,NST7',NPPft(3 0) ,iPAK( JC)TPI,H2,iC0*tPI,IpL, 

2 THUS 

C — r r-- 

C 

e THIS StlFcouTINtr CALCULAtFS THE SUPFACE- DISTANCE ON EACH BODY- 
(? FROH ITS HT&HL-TGHT 
C 

IF ( YCNINXHin .GT,YPI) GO TO 1; 

S <NXHT1 ): -SO^T ( (XON t NXHI3 ) -XR 1 1 *<«52 + t YON ( NXHI 1 ) -V PI ) ’♦*2 T. 

N» !• = NXHI 1 +2 
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NK'2 - NXHll-1 

S (NNl-n = SORT t <>0N( WNl-1 >-XRn**2 + (.Y0NlNNl-l) - YRl) **2> 

GC TO 2C • ' 

IL StNxHIU '= SOPT'((XOW{NXHin-XRll**2+(.YONlNXHIl)-YR10**2> 

NfJl = NXHI-l*l’ 

NN2 = NX HI 1-2 

S (NN2+1-) =-SORT (.rXONC NN?*r>-XHl >**2 + t.YON { NN2* 11 - YB 1) **2 > 

2C DO 30 I = NNJjNSl. 

S (I > r slI-1 )+SORT,nxON(T)-YON< I-10)**2+IYON( I)-YnN(I-in*-»2J 
TO CONTINUE , " 

DO *tC II = l.,NN2 
I - NN2+1-II 

S II ) = S <1 + 1 I-S0R7 ( «XON m -XON( r + 1 1 )**2* «YON< IJ -YONI I+m**2» 
■IC CONTINUE 

IFtlHUB.EO.O)- 60 TO 81 
I'FIYOHINXHIPI.GT.YRH) GO TO Sf 

S (NXHT2) =-SORT ( < XONI NXHI? ) -XRH ) #=*2+ t Y ON ( NX HI 2 1 - YRH ) * #2 > 

NM : NXHI2 + 2 
NV2 = NXH12-1 

S(NN1-1I SORT! <X0N(NN.1-1I-XRH)**2 + (Y0NINN1-1J-yRH)**21 

GO TO 6? 

EL SINXHI2J - SORT! (XON(NXH12)-XRM)**2+(YONIMXH12}-YRH)**21 
MM = NXHI2+1 
MN2 = NXHI2-2 

S (NN2+1 ) =-SORT I <XON( MN 2+1 > -XRH ) **2+ ( Y ON ( MN 2+ I ) - YR H) ♦*2) 

6C IS = NS 1 + 1 
IS2 : NH 

DO 7t 1 = VNi,IS2 

S(I) - S ( 1-U + 5QRT ( IXON II > -XON< I-l ) 1 #*2+ (YON ( I( -YONI I-1M**2) 
7C CCNTIWUF 

DO Sr II = 1S,NN2 
I : NN2+IS-I1 

S(I> = S (I + l l-SORT ( (XON II 1-XONII + l ) 1**2+ (YON< Il-YONd + ll »«*2) 
F_, CONTINUE 

81 IF(Y0"(NXHI3I'.LE«yR?> go TO 9n 

S INYHIS 1 =-SORTl (XON( HXHT3 ) -XR 2 1 **2 ♦ C YON 1 NXH 1 3) -YR2)**21 
NMl = NXHI3+1 
NN2 :: NXHI3-2 

S{NN2+1) = SORT { (X0N<NN2+1 )-XR2»**2*CY0N (NN2+1)-YR2)**2) 
r.O TO ic- 

9;, SINXHT3) = SORT < ( X ON ( MXHI3 > -XR2 1**2 + < YON ( NXHI Tl-yR 2 > «*2l 
NM r NXHI3 + 2 
NN2 = NXHI3-1 

S<NN'1-1 > =-SORT << XONfMNl-l >-XR2»**2 + {Y0N (NM1-11-YR2>**2» 

IPO IS = NH+1 

DO 1 10 I=NN1,N7 

sm = 5 (1-1 ) -SORT ( <XONm-XOMI-n )**2+ tYON(T)-YON«I-m**2 » 
Ilf CONTINUE 

DO 12C II = IS,NM2 
1 = NN2+IS-II 

StI) = S (1*1 1+SORT t (XniM 11“X0N(I+ 1 n **2+ (YON ( I J -YON< I + l » 1**2 1 
12D CONTINUF 
RETURN 
END 
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SUBROUTINE SOLVE 

COHHON /COORO/ XOM < 7D 0 ) ,YON ( 700 J ,*Orr « 20 0 I. VOrF,( 2001 ,S { 7Q0 ) , 

SI (TOO) tXTEST.XTESTl tXTEST2,yCLfYCU,YCLl,VCL2,YCUl 
YCU2,XRI ,XB2,XRH,YR1»YR2, VRH.CUTOFI ,CUTOF2,CUTOFK, 
ELN0fANGC7001 ,AR {7001, AR OFF (?0Q) 

COHHON /VElOC/ VI (TOO ) ,V2(70D1 , V3 I70QJ , V R (700 ) , VS ( 700 » ,V IX (200 J » 
V2X(20 0) ♦V3X(200),V«IX(20D ) , V5X (20Q 1 ,V IT 1 200 ) , 

V2Y ( 200 ), V 3X (.200 J, V4 Y ( 200 »tV5Y (2001 

COMMON /CONT/ VC»VSl,Vs2.X«C,XMClfXHC2iW00TCrWD0TCl,MD0TC2, 

TITLE( 3) ,VINF*ALFA»AtBTC,D,AlG,fl2C,fi3C«*RC,ll5C,»n 
AZI rA31 tAMItASJ i AI2 t *22 i A 32 , A R2 t A52 , VIC t V ICl , VIC2 

COMMON /COUT/ NT,NS1,NH,NP»I«,NX,KND»ICOmP,K,NXH11,NXHI2,NXHI3, 

NST2 ,NST3,M$t7,NPPR{-Sq» ,IRAK( 3QJ ,M1 ,M2 , IC0HP1 1 IPL , 
IKUB 

COMMON /CONOI7/ TT OTAL »PT»PSTA T ,TSTA T tPS t ATC , AT07AL tPTC »RHOST* 
RHOTOT ,A57ATfOCINF 

COHHON /UR IT/ AAl C ,A A2C, A A3C t A AM C , A A SC , A A 1 1 , A A21 ^ A A 31 , A^ii I, AAS 1 , 
AAl 2 tAA22»AA32fAAR2, AA52 

COHHON /SOLUT/ V.B AR ( 700 ) , VBA RO ( 200 J , V INC I7Q0 I , VXINC (200 J , 
VYINC(20Q1»RHO?(700) , RBOR 7 (700 ) *RHOBO( 200 1 , 
VC0M(7D0J ,RB007(2D0.» ,VRE( 2001 ,VRE COM (2001 , 
VXCOK(2001,VYCOMI?OOt , THE TA( 200), P50PTC (7001, 
PSOPTTTQOl ,CMACNt700» ,XHACHt 70QJ, CPI (7001 ,CpCt700) 
RHOKTDOl 


t 


t 


C THIS SUBROUTINE SOLVES FOR THE COEFFICIENTS A,B,C, AND 0 /tNO 
C SOLVES FOR VBAR iJND V IN C OMPPE SSIPLE FOB BOTH ON- AND O/F-BODY 
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POIKITS 

DIMENSION YNEWtSDJ » VNCU 1 C50 > , VMEU2 ( SO 1 ,V NEW3 ( SO j tVNEVHUs’oi, 
1 VNEWSeSO) 

G = 32.17£| 

IFtHl.EQ.l) GO TO 30 

THE FOLLOUING CALCULATIONS ARE FOB THE CONTROL STATION 
UPSTREAM OF THE HUB 
A = XTEST 
NPL = 0 

NHl = NH+1 ' 

DO S riQ=NXHnVMSl 

IF{ ( A.GE .XON (110 t ) . AND. ( A*LT .XON( Iia-t-l } ) } THEAL z ANGCllOt 

5 continue 

DO f, IlOzNMl ,NXHl-3 

TF{(A.LE-X0N(I10)J.AND.(A.GT.X0N«Iia + in) THEAH' = ANGdial 

6 CONTINUE 

CALL rNTER2(NXHIl ,NSI , A ,YL.V IL, W2L, V3L , V4L t V5L1 
CALL rNTER2CNHl»NXHI3, A,YH,V1H,V2H,V3H,V4H,V5H> 

00 10 II r l.,K 
IFdI.EQ.lI 1=1 
IF(H.EO.l) GO TO 12 
IzNPPRdl-l Ml 

12 IF ( A ,N£ .XOFF (I» 1 GO TO 10 
IF(TI.E0.1J NPL =1 
IFdI.EO.lJ NPH = NPPRdl 
iFdl.EO.l) J3 = NPPRtl) 

DO 15 J =2»K 
IFtlI.EO.J) NPL = I 

IFCII.EO.UJ NPH = NPPR ( JJ-NPPR t J-1 » 

IFtlI.EO.J) J3 z NPPR(J» 

15 CONTINUE 
IQ CONTINUE 

IFfNPL.EO.DJ HRITEt6,ia00) 

IFCNPL.EQ.OJ STOP 
DO 20 JJ z NPLrJ3 
YKEWlJJ-fZ-NPL) z YOFF(jjJ 
WNEW1IJJ»2-NPLJ z VlXtJJJ 
VNEH2(JJ*2-NPL> z V2X(dJ» 

VNEU3(JJ*2-NPL) z V3XIJJ1 
VNEW4 CJJ*2-NPL) z VUX(JJ) 

IFtIHUB.NE.O) VNEW5CJJ«2-NPLJ = V5X(JJJ 

20 continue 

yNEHtn = YL 

VNEWKll z VIL^COSCTHEALI 
VNEU2(1) z V2L*C0SCTHEAL» 

VNEH3(1) = V3L*C0S (THEALJ 
VNEUAdl z VNL*COS (THEAL) 

IFdHUB.NE.OJ VNEUsei) = V5L«C0S ( THEAL J 

YN£W(nPH*2J = YH 

VNEHKNPH+2J z -VlHaCOS(THEAH) 

VNEW2(NPH+2J = -V2H*C0S(THEAHJ 
VNEW3(NPH-*-2) z -V3H*C05(THEAHJ 
VNEW«KNPH*2) z -VNH^COSdHEAHI 
IFdHUB.NE.O) VNEW5(NPH-»ZJ z -V5H*C0 S ITHEAH J 
NPT = NPH+2 

CALL INTEG(VNEW1,YNEW,AA1C,NPTJ 
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CALL INTEG(V«Ey2,YNEw’,AA2C,MPT) 

CALL INTEe{VNEH3,YNEU fAA3C,NPT) 

CALL INTEG'tVNEUA ,yNEW ,AA«|C,NPT ) 

IFtIHOe.NE.O) CALL IN TE 6 « VNEW5 , YNEW , A ASC ,NPT » 

AIC = AAlC/AROFf tNPLI 
A2C = AA2C/AP0FF tNPL> 

A3C = AA3C/AR0FF (NPL) 

A*)C = AAAC/AROFf {NPL> 

IFCIHUB.NE.Gl ASC = A A 5C/AR0FF « NPL I 
IFtlHOB.EO.DI GO TO 215 

C THE FOLLOWING CALCULATIONS ARE FOR THE LOWER CONTROL STATION 
3D IFtMl.EO-lJ GO TO <}Q 
1FIH2.E0.11 GO TO 70 
HD A = XTESTl 
NPL = G 
NHl = NS1*1 

CALL 1NTER2(NST3,NSI, A.YHEwn > jVNEHl ( 1 J , VNEW2U) , VNEW3f 1 > tVNEH** f 1 > 
1 “ tVNE«5II>) 

DO Al I10 =nST3»NS1 

IFC CA.GE.XONdlOn. ANO.fA.LT.XON(llD*m J TH^AL = ANGUlOl 
41 CONTINUE 

DO «I2 110=NHlfNXHI2 

IF{ CA.LE.XOMtTlOll.AND.lA.GT.XONlIlQtin J THEAH = ANS(110> 

<J2 CONTINUE 

WNEWin> = YNEU1 jIiI*C0S{THEAL» 

VNEH2CH = 1/Nki2(l »4'C.0S(THEALI 
VNEW'sfl} = yNEW311>4C0S[THEAL) 

VNEWAfl) = VHEU4 ti »*COS{tHEAL) 

VNEU5<|} :: VNEUStl l»COS<THEAL J 

CALL INTER21NH1 tNXHTZ tAtYH,VlH,V2T<»V3H,V‘tH.V5MJ 
DO 50 II ? },X 
TFtir.EO.p i = l 
IFtlI.EO.lJ GOTO 46 
I = NPPR5lI-i>*l 

45 IFt tA.NEixOFf JIH.OR. (yOFFdl.GT.YCUin GO TO 50 

IF«II.E0.1> NPL = 1 - - - y 

IFtlI.EO.lJ NPH = NPPRIl; 

IFtil.EO.lJ J3 = NPPRtl) 

DO 4fr J=2,K 

IFCII.EO..j» NPL ? NPPRIJ-1>*1 
IFCII.EQ.i4I NPH = NPPRCJ)-NPPRCJ-1> 

IFCIT.EQ.ji J3 = NPPRC’jJ 

46 CONTINUE 
5p CONTINUE 

IFfNPL.eo.Qj WRITET6. 1001» 
ifcnplIeo.o) stop 

DO 60 jj = MPL,J3 
YNEVC JJ+2^NPL > = YpFFIJJl 
WNEW1(JJ*2-NPL) = VlXcjj) 

VNEWZ tJJ*2-NPL J = V2XCJJ} 

VNEB3{JJ*2-NPL J V3XCJJ1 
VNEWS fJJ*2rNPLl = y4XCJJ) 

VNEWS(JJ*2-SPL) = V5X(JJ» 

6D CONTINUE 

YNEWtNPH*2> 1^1 

VNEHKNPH + 2) =' -tflH*COSCTHEAH> 

VNEW2CNPH*2J = -V2H*C05CTHEAHJ 
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VNfW3IMPH+2) i -V3H*COSfTHEAH> 

VNEUM tNPH*2> = -Vd H=»COS t THEA H J 
VKEWSJNPH-*? J = -V5H*COS{THEAH } 

NPT=NPH*2 

CALL INTE6CVNEUl»YNCy,AAll,NPTJ 
CALL TNTEGtVNEVZrVNEU »AA21 tNPTJ 
CALL IMTEeeVNEW3rYNEU,AA31.NPTJ 
CALL IMTEGtVNEWtt,YNEU tAAi|l,NPT J 
CALL INTE6IVNEW5,YNEU,AA51,NPT} 

All = AAll/AROFFtNPL) 

A21 = AA21/AR0FF CNPLJ 
A31 = AA31/AROFF CNPL) 

API = AAA 1/AROFFtNPLJ 
A51 = AA51/AROFF{NPL> 

THE FOLLOUING CALCULATIONS ARE FOR THE UPPER CONTROL STATION 

70 IF! (Hl.EQ .01. AND.< H2-EQ.G) J GO TO 80 
A = XTEST2 

NPL = D 
NHl = NH*1 
N5H= NH 

CALL TNTER2(NXHI2,NSH«A,YNEW(1 J,WNEW1{1> ,VNEw 2 < 1 > t VNEW3U ) r 
1 WNEVPTD.VNEUSm) 

00 71 110 = NXHI2»NSH 

IFUA.GE.XONtllOn.ANO.CA.LT.XONCIlO+im THE AL = ANGtIlO) 

71 CONTINUF 

DO 72 I1D=NHI,NST7 

IFUA.LE.XONtI101>.AND.fA.6T.XONtI10*l»I ) THEAH = ANGIIIO 

72 continue 

VNEWltH = VNEUl tl 1«C0S(THEAL > 

VNEHZUJ - VNEW2«1)*C05CTHEAL> 

VNEW3fl> = VNEU3<I >*COSCTHEAU 
VHEWP(l) = VNEUP Cl 1*C0SCTHEAL> 

VNEHSCll = VNEW5 (I t’ACOStTHEAL J 
DO 90 II = 1»K 
IFIII.EO.U irl 

1 Ft II. EQ. 11 60 TO 95 
I =. NPPRClI-11 + 1 

95 IF( tA.NE.XOFF tl) »,0R. (IRAK til) .NE.4) 1 GO TO 90 
IFtll.EQ.lJ NPL=1 

IFtlI.EO.ll NPH = NPPRtn 
IFCIl.EO.il J5 = NPPRCll 
DO 96 J=2,K 
fFCir.EO.J) NPL-I 

IFCI1.EC1.J1 NPH = NPPR t Jl-NPPRC J-1 1 
IF(ir.EO.J) J3 = NPPRtJl 

96 CONTINUE 
90 CONTINUE 

IFCNPL.EO.O) HRITFC6, 10021 
IFCNPL.EQ.OI STOP 
NPT = NPH+2 

call 1NTeR 2CNH1,NST7, A.YNEUCNPTltVNEWlCNPTl , vNEw2 INP T 1 ,¥NEH 3( NPT 1 , 
1 VNEtfdCNPTl.VNEUBCNPTl 1 

VNEHICNPTI = -VNEWIINPTI^COSITHEAHI 
VNEW2CNPTJ = -WNE«2tNPTl«C0StTHEAHl 
VNEW3CNPT1 = -VNEU3 INPT )#COS CTHEAHl 
VNEUPCNPTl = -VMEWP tNPT 1*C0S ITHEAHl 
VNEW5CNPT1 = -VMEH5tNPTl«C0S(THEAHl 
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on Jl’C JJ = NPL,J3 
VNtWe JJ*2-HPL> = vOFFtJJ) 

VNEWlCJJ+2-NPL> = VlXtJJJ 
VNEW2 {jJ*2-nPL) = V7XIJJ> 

VNE.W31JJ*2-NPL) : V3XCJJJ 
VNEU'<{JJ+2-NPL} = VitXIJJJ 
VNEw5«JJ+2-NPLl = V5X(JJ1 
lOO CONTINUE 

CALL INTE6(VNEU1,YNE«,AA12,NPT» 

CALL INTE?GfVNEW2,YNEU,AA22,NPTl 
CALL TNttG(VNEtf3,YNFWtAA52.NPT; 

CALL INTEGTVNEWA ,YrjFUTAAi(2,fiPTI 
CALL INTE6<VNEWSi,YNFW,AA52tNPT> 

A12 = AA12/AR0FF fNPLl 
A22 = AA22/AR0FF (NPLl 
A.T2 = AA32/AROFF(KPL) 

AA2 = AA42/AROFF CNPLl 
A52 = AA52/AR0FF(NPL1 
80 IF<t11,E0.1l GO TO 200 
IF<H2.EQ.1> go to 2T0 

C THE FOLLOWING IS FOR THE CASE WHERE UPSTREAM AMD LOWER 
C CONTROL STATIONS ARE INPUT 
vet = A3C-AMC 
VLi= ASI-ARl 
VUl = AS1-A41 
VeU = A5C-A^t 
A = VlNF*COSf ALFA J 
B = viNF*SINCALFA) 

D= fV'5l#VCL-VC«VLl-» (A*AlC + B>^A2C)*VLI-t A#All*Bii21 J #VCl}/ t VUl’^^VfcL- 
1 VCU*VL1> 

C :: tVSl-tA#AlI+B*A?l T-0*VUI J/VLI 
GO 70 220 

C the FOLLOWING IS FOR THE CASE WHERE UPPER AND LOWER 
C CONTROL STATIONS ARE INPUT 
200 A z VINF’ACbStALFAT 
B = VINF*SINtALFAJ 
VL2 = A32-A42 
VLl = A31-AH 
VUl = AS1-A41 
VU2 = AS2-A42 

D = ( VS1*VL2-VS2*VL1+ ( A*Ai 2*B*A22 J *VL1 -f A#A 1 1 *B*A 2 l)*VL?) / { VU1*WL2 
1 -VU2>»VL1> 

C :: (VSl-lA’t'AlI+B4A21)-0*VUi>/VLl 
GO TO 220 

C THE FOLLOWING IS FOR THE CASE WHERE UPSTREAM AND UPPER 
C CONTROL stations ARE INPUT 
210 A = VTNF>»COS(ALFAI 
8 = VINF»SIN<ALFA J 
VCL = A3C-A4C 
VLZ = A32-A42 
V02 = A52-A42 
VeU r A5C-A4C 

D - {VS2«VCL-VC=*VL2-f( A*A1C-»B*'A2CJ»VL2-C A«Ai2*B*A22 J#WCL1/ IVU2«VCL- 
1 VCU+VL2) 

C = (VS2-CA*A12-»B’»A22>-0*VU2>/VL2 
GO TO 220 

215 A z VTNF*COS(ALFA» 
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B = VThfF*SIM(ALFaJ 
C = tvC-A*AlC-B*a?C >/ « A3C-A4C1 
the FOLLOlfING ARE THE TALCUEATIONS FOR U AND VBAR 
220 00 230 1=1, NT 

IFl IHUB.EO.Ol VINCJ 7 ) =S*V1 Cl 1 +e*V2 (I » + C* [V3f I )~V4 ( I J > 

IFC1HUB.E0.07 GO TO 230 

VINCtI) = a*V H 1 (I l + C*l V3CI f-v«4 C I I )-*D* t V5(-H -V4 ( I > ) 

230 continue 

DO 240 1 =1,NP 

IFCIHUB.EO.O) VXlMC(I}=fl«VlX«I MB*V2Xn )+C#( V3X{r7'V4X(IH 
IFC1H0B.E0.01 VYIHCCI 5=A*VlY.(Il4BAV2Vm+C#CV3YTIl-V4ym » 

1F( IHUB.EO.OT 60 TO 235 

VXiNC(IJ= A#vlX(IM84:V2XtI)*C«tV3X(Tl-V‘lX(IM+D4CV5XCI)-V‘)X{in 
VYINCfIJ= A#VlYCIJ-»e«V2Y(n*C*CV3Y(n-V4Y(IM4D4lV5Y(IJ-V4YCII) 

235 VREtll = SORTCVXINCCl »**24VVINC(I)’»*2J 

THETACIl : ATANCVYINC {II/VXINCCII)/3-1415926S4*180.D 

240 continue 

DO 250 I = 1,NT 

VBARtI)=UD0TC/RH0T0T/ARtI)«12.0/G 
IFCIHOB.EQ.OJ 60 TO 245 

IFCCI.GT.NST3l.AND. (I.LE.NXHI2U VBAR(I) = WOOTCl/RHOTOT/ 

1 AR(II*12.a/6 

IFftI.6T,NXHI2>.AND.(I.LE.NST7JJ VBARCl} = WD0TC2/RH0ToT/ 

1 AR(I)*12.0/G 

XHI2=X0NCNXHI2» 

IFC (XH12.LT .XON (NXHT3 1».AND.CXON(IJ.LT.XON(NXHI3»1.AND.<I.GT .NXHI2 
1 J .AND. tVBARCD.LT. VINFJ ) VBARCI1=VINF 
IFCXHI2.GT.X0NCNXHI51 1 GO TO 245 

IFCI.LT.HXHI2 J VBAR (I )=WDOTC1/RHOTOT/AR C 1 1*12.0 
1 /G 

245 IFcCCI.LT.NXhiI >.0R.(I.GT.NXHI3n.AMD.<VBAR(IJ.LT.VINFn VBARCl) - 
1 VINF 

IFCIHUB.EO.O) XHI?=99999. 

IFC CABS tXON CNXHID-XON CNXHI3) ) . GT . □ . D 1 ) . AND . C XoN 1 1 ) . LT .XH 12 ) . 

3 AHO.CXON Cl l.LT.XON CNXHl 3) ) , A ND . C VB A R ( 1 1 .LT .VINF)) VBAR Cl) -VINF 
250 CONTINUE 

DO 26D I = 1,NP 

VBAROfl) = UDOTC/RHOTOT/AROFF II)*12,0/6 
IFCl.LE.NPPRCD) NCHK = 1 
DO 255 J=2,K 

IFC Cl .LE.NPPRCJ) 1 . AND . (I.8T.NPPR C J-1 ) ) > NCHK = J 
255 CONTINUE 

IFtIRAKCNCHK).E0.4 ) VBAROtll = UOOTC2/RHOT0 T/ AROFF I I ) *12 .0/6 
IFCIRAK CNCHK ).E0 .5 ) VBAROCI) = WOOTCl/RHOTOT/ABOFFCI)*12.0/6 
IFC (IRAK CNCHK ).E0.2 ). and. tXH12.LT .X0NCNXHI3) )) VBARO (II=WD0TC1/ 

1 RHOTOT/AROFFCI )*12.0/G 

IFC (IRAKCNCHK ).E0.1).AND.tXHI2.LT.X0NCNXHI3) ) ) VBARO (I)=W00TC1/ 

1 RhOTOT/AROFFCI )*12.0/G 

IFC C CIR AK CNCHK ). EO. 1 1. OR. (IRAK CNCHK T.EQ.Z). OR. ClRAKt NCHK ).EQ.6) 

1 .OR.CIRAK(MCHK).E0.7)).AND.CVBAROCI1.LT.VINF1 ) VBARO C I )=VINF 

IRT=NPPRCNCHK I 

IFC {IRAK(NCHK).ECr.4). AND.CXOFFCIRT) .LT.XONCNXHIS) ) .AND .< VBARO Cl ) . 

1 LT.VINFI) VBAROCI) = VINF 
260 CONTINUE 

1000 FORHAT(///,10X, 'THERE IS NO RAKE LOCATED AT THE DOWNSTREAM 

1 'CONTROL STATION. IGX ,* CHECK INPUT LOCATION OF ' 

2 ’CONTROL STATION. RUN TERMINATED.*) 
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"lO"Qi ;FORPATf///,10X, •THERE IS NO RAKE LOCATED V TH£ L«'W'.» • 

j . 'CONTROL .STATION. './ 1 lOX ’CHECK INPUT LOCATION ioF • 
2 ’CONTROL ^station’. ;;RUN fERHINATEO'. *3 

'1002 FOR ICX, ’THERE IS MO RAKE 'l'OCATED 'aT THE *0P'PEB * 

1 ’CONTROL Xt*W*J* .’-./.iqX. ’CHECK INPUT ' L OCATION ^'OF 

2 ’CONTROL 'STATION'. 'RUN TERM! MA TED". ’ 1 
I l'%*i 

END 
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El'BPOUTJNE COHCOR 

COHVOK /COUT/ NT,NSliNHfNPfIW,NX,KND,ICOMP,K,NXHlltNXHl2t><5!HI3, 

1 NST?,NST3,NS'T7,NPPR (3D ,IR*K (30li‘Hl,H2»iC0HPltIPL , 

2 I HUB 

C0K»*O». /COMMIT/ TTOTAL ,PT,PST*T,TSTftT,PSl*TC,BTOTAt_,PTC,ftHOST, . 

1 RHOTOT, ASTAT ,OCINF 

COMPOS- /SOLUry VBAR(7P2),V&ARe(200J.VlNC(7'JD),VXINCt2:CI, 

1 VYI NC( 2 20) »RHOP t 7 00) iRBORl (7DD»>RH0P0 ( 200) « 

2 VCOH<7rO),RBnOTl?OD tVPE t 2.?ul -|VRECOH(200I • 

3 VXC0p{ 200) ,VYC0M(2CDI ,THETA(2CM ,PS0PTC(70r) , 

R PSOPTt 700) ,CPACH(7 00 ) tXHACH(70C) iCPI t 7^0 , CPC (700) , 

5 RHnil7t;C) - 


THl S' SUPP0UT7ME APPLIE5 THE CO«PRE SS I BLI T Y CORRECTION TO THE SOLUTIPN 

EXCON = 1 .0R5+AT0TAL*! 23. 0/216. D 

PI : 3.1^41592654 

Pile: : ISO. C/PI 

VCHK r ATOTfL/SORT (1.2) 

DO 1 1= ) ,NT 

A9 : I.r 

CAL L VSAR1T( VPARd ) jATOTAL ,PHOTOT ,PHOP (I )) 

PPORTO) = PHOP (I ) /PHOTOT 

VrO^-d) = VTNC{I)/RPORT(l)^*(ABStVINC(I)/VPAR (I) ) > 

VA r f',2*(VC0“(I)/AT0TAL)**2 
JF( VA ,{,T .1. - ) eO TO 25 

P50 = t 1 .C-^.?*( VCOMt I ) /ATOT AL )**2)^*3.5 
GC TO 3C 
25 PSO = 

31 1F( ( AFS( VCOM(I ) j.LT.VCHK) .OR. ( APS(NX).NF .1) ) 60 TO 10 
V5AVF = A6S(VC0K(T) ) 

IF ( ( VGA V£/VCHK ) .GT . 2. >'} GO TO 10 
PMOMC = VS«VF*PSn**^.7 15/EXCOh 
IF ( PhOPTC .EO . ... 01 RHOPTC - 1«; 

TF( VCCPl I ) «LT..,.0) A9 = -l,n 

VrOV(7> = VCHK9(1.0+(VSAVE/VCHK-1.D**( 1 .C/RHORTD 1*A9 

i:- cn. tinue 

PC- ?: I =i,*(p 

CALL VPARIT ( VOARO( I ) , ATOT AL , RHOTOT , RHOBO ( I )) 

RPCOT(I) r PhOBO(I ) /RHOTOT 

VF£CO>'n) : VPE (I > /°600T(I )*9( VRE( I >/VBARO(I) ) 

VA r *.2*(V9rC0H(I)/AT0TALI9*2 
IF ( VA .6T . 1 .'’) 60 TO 35 

P5I : (1 . j-'',?*(VRErOH(I)/ATOTAU**2)9*3.E 
GC TO 4“ 

3E PEI : 

4'. IFt t VF£COH(T ) .LT.VCHK ) .OR, ( ABS (NX) .NF. 1 ) ( GO TO 
VSAVE = VRECO«(U 
1F( ( V'^AVE /VCHK ) .G1 .2. :■) 60 TO 15 
PHOPTf = VSAUE*PSI**0.715/tXC0N 
JFIPHORTC .EO.O.C) RHOPTC =1.0 

VPFCOP(I) : VCHK'^d.t-* (VSAVE/VCHK-1 .•))•* U .C/RHOPTC) ) 

15 VXCOPdl = VX1NC(I>*VREC0H(I)/VSEII) 

VYC0K41I = VYIhC (7 ) AVRECOH (1 J/VRE (I I 
THETA(I) = ATAN (VYCOP (I »/ VXCO**( n )PPI ISP 
22 CCATINUF 
RE7UPV • 

F AD 
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SlEPOfTiNE 6NB0DY 

COMf'OK /COOPO/ XON t.7CC> » YO N (720 ».* XOPF <2 00) *Y OFF < 20C>-» S <7C0) ♦ 

SH7QD) ,XTCS7-,XTtSTl ,XJEST2,YCl,vYCU,YCLl,Y-CL2,YCUl 
YCU2,XR1.,XR2,XRK,YR1 , YP2 » YPH ,CUT0F1 .CUT0F2, CUT OFK , 
FLND,*NG(7D0),iR (700) ,AR0FFM2r.n 
COMHOM /CONT/ VC,VSl,VS^,Xf'.C,X^<Cl ,XRC2,W00TC|VD0TC1,WP0TC2, 

TITLE;v( 3),VI>IF,AUFA,4 ,P,C,D,i 1C.,A2C,> SC.ApC.ASC.Al.l, 
A21,A31--,A.').l,)>51,A'l2,A22,«32,A<4 2,A52,VIC,VICl,ViIC2 
COHPOM /COUT/ NT,NSl,NH,NP,lW,)JX,KND,ICOMP,K,t.'XHIl ,KXHI-2 ,MXRJ-3 , 

NSTZ,MS-T'3',NS77,NPPR ( 3 0) t IRAK (3 v) f PI ,P.2-,IC0MP1-, IPL » 
IHUB 

COPKOV /CONDI T/ TTOTAL ,P-T , PST AT »T ST *T tPSTAjC , ATOTA L ,PTC,RMOSJ , 

rhotot,ast-a-t,ocinf 


CPHPON / SOLL'T/ VBAR (7<^0) ,,VF.A RO 1200 > ,.VlNC 1 700».,.VXIwC t ZlC) 

1 VYIKCt,2'Tl ,RH0Blr7iC) ♦RFOPirTCC ),RHOeO(2DD) «■ 

2 VCOB (700) ,RBOOT('2i)0) ,VPE (2E0)., V-.: f !>‘'(2“'..),. 

3 VXCOpI ?0D) f VYC0P120C) ,THETA(2 0'‘) f PSO^TCf-TOC)', 

4 PSOPT( TDU'f CMACHtTOD) , XP A CH ( 7CC) , CPI ( 7 cC)-,C'PC (.7DC ) , 

5 RH0K7C0) 


THIS SUpffOUT'lN^ CAICULATFS THE' 0\^PODY PROPERTIES 

DIPENAIQN DIPOUH(E) 

DC It t =LiN.T. 

VrOKC - 5.2*l>A&S(VCOHri>)/AT(VTftL))*Ar2 
VCOK : :»2*.t>ABS(Vl<KC(I ),/AT0TAL ))*-*-2 
IF(VIi*'F.KO^n.r-); CPI,(I«) = 

IF(V1NF..E-0*,'«C)- CPC (11 = 9^9.9.9..r 

IF(VI*iF .FO.,''.,C) GO- TO, R- 

Crni> = l-,,C-(A9St'VINCtir,/.VTNPI)**2 

CPC (‘IP = (.f»T-PSTA,T-(C-.S*fiHOtv(l>*,VX-OM.( J).**2) Ij/.CCIfvF 

4- ir(vC0NC,eT.J;.0) P-SOBT.C ( I)| = c'o 
IF( VC’NC.GTVJi.D') CHACH(.I)> =■ 9,9.9 
ir< VCCN,.6T;.,l.r). XMACHd)’ = 999,3 
IF< V,CPN'.(iT'.l,»"') PSOPT(I). = E.C 
I FCVCOhi .GT. I.,0-). RHOKIli = 2'‘Df'.0 
l'’<(UCONC.GTi;l.r)..,AND. fcVCON.GT.,1.0).) GO TO l.E 
ir<V.CONC.GT-l’.D) GO TO 5 
PSOPTC(I) ('l.C--VCONCI**-3.5 

CPACHU) = AeS(V,COH(I >, )./A.TO,TAt/SO,PF( l.C-V('0)iG 1- 
1F( VeON.BXfcl^D) (50 TO 1:? 
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S PSOPTCIJ = {l.a-0.5*RHOTOT®VlNCJIl**2yPT) 

XHACH<I» = ABS( VINCtI ) J/ATOT,AL/SORTf 1 .O-VCON f 

10 CONTINUE 
WRITE<b»10QJ 
J=0 

DO 15 I-1»NS1 
IFCICOHP.EO.O > GO TO 11 

IFt (CHACHII) ,LT»1 .DJ.OR.CABS (NX! .NE.l J'J 60 TO 12 
lF«CHflCH{l-l l.LT.l ,0) «RITE<6tl601 I 
IF(CMACHtI-l J .LT.l .01 J = 3 
GO TO 12 

11 IF( tXHACH{Il.LT*l.Dl*OR.lABS(NX).'NE.l n GO TO 12 
IF(XHACH(I-1).LT,1 .01 UR'ITE<6,160> I 

IF< XMACHCI-1 J .LT.l .01 J = 3 

12 IFCICOHP.EO.O) 60 TO 13 

IFt (CHACmiJ .LT.l .01. AND. f CMACH(I-1 >.GE.l.D>.ANO.tAftS(NXI.E0.1J) 

1 WRITE<6,1701 I 

IFt (CHACHtIJ.LT. 1.01. AND. ( CH ACH t I-l > . GE . 1 .0 1 . AND . C ABS tMX 1 .EO.l > 1 
1 J - J*2 

GO TO 15 

13 IFt tXKACHlI ).LT.l.D>.AND.tXHACHtI-l I . GE . 1 .0 J . AND . I A6S t NX ) .EQ . I 1 > 

1 URITE»6,170J I 

IFt tXMACHtIl.LT.1.01. AND.tXHACHfl-ll.GE.l.Ol.AND. t ABS <MX 1 . EO . f 11 
1 J =J*2 
15 CONTINUE 

IFt ICOHP.EO.OJ MRITEt6,105J 
IFtIC0HP.E0.il HRITEt 6,ID6> 

DO 20 I = l.NSl 
J=J*1 

IFtJ.EQ.511 WRITEf6»951 - 

IFt t J.E0.51) . AND. tICOHP.EO.O) I URITEt 6,105 1 
IFt tJ.EO.SIl.ANO.flCOHP.EQ.l II WRITEt6,lD6l 
IFIJ.EQ.511 J3l 

IFt ICOKP.EO.D) WRITE t 6,110) 1,X0N til , YON Cl > ,S fl I , VI nC t II ,XH ACH ( 1 1 , 
1 . CPI tl) ,PSOPTm 

IFt ICOHP.EO.l 1 HR ITEt 6,1151 I,XON til , YON tl 1 ,S tl 1 , VCOH 1 1 1 , VBAR 1 1 1 , 

1 CHACHt 1 1 ,CPCtll tRB 0RT(T1 ,PSOPTCtIl 

20 CONTINUE 

IFIIHUB.EO.O) SO TO 26 
HRlTEt6,l20) 

IS = NSl+1 
1ST 3 NH 
J=0 

DO 25 I3IS,:ST 
IFtICOKP.EQ.Ol GO TO 21 

IFCtCNACHCIl.LT.l.Dl.OR.CABStNXl.NE.ll) gO TO 22 
IFtCHACHtl-n .UT.l .01 HRITE(6,1601 I 
IFtCHACHtI-1 1 .LT.l .01 J = 3 
GO TO 22 

21 IFt tXHACKCIl.t.T.1.0}.0R.{A6StNXI.NE.lli GO TO 22 
IFtXMACHII-Il.LT.1.01 URITE(6,1601 I 

IFt XHACHtl-H .LT.l .01 J = 3 

22 IFIICOHP.EQ.OI 60 TO 23 

IFt tCHACHCI) .LT.1.01. AND. tCHACHtI-11 .GE. 1 .01 .AND. {ABS (NX! .EO.l 1 T 
1 WRITEt6,1701 I 

IFt tCHACHtll.LT.l.Ol. AND.tCHACHtl-ll.GE. t.Ol.AND. lABStNX ) .EQ.l ) 1 
1 J = J*2 
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60 TO 25 

23 IF{ IXMACh (I ).LT. 1.0 ). AND. tXHACH<I-l ) .GE . 1 .0 J . AND . ( ABS I MX I .EQ.ll.l 
1. URITE{6,170> I 

IFC tXHACHd )-LT. 1 . G ),. AND. ( XHACH f I -^1 J .GE . 1.0 ) . AND. ( ABS <NX } . EQ . 1) I 
1 J =J*2 

25 CONTINUE 

IFtICOHP.EO.OI URITE(6tlD5) 

IFUCOMP.EO.IJ URITE<6,106) 

00 30 I = IS, 1ST 
jrj*l 

1F(J.EQ.51> «RrTEf6,95l 

IF( tj.E0.51 J.AND. t ICOHP.EO .on WRITE (6, 1051 
IFt (J.E0.51 J.AND.tICOMP.EQ.in URITE(6,1Q&) 

IFtJ.EQ.51» J=1 

irtlCOHP.EO.Dl WRITE (6,110) I,XON 1 1 1 , YON (X ) ,S 1 1 > , V INC (U ,XH A CH 1 1 1 , 
1 CPltD.PSOPTtll 

IFtICOHP.EO.il URITEt 6,115) I,XON ( 1 1 ,YON tl ) , S ( 1 1 ,V COM t II , VB AR ( I J , 

1 CHACHtll.CPCt I7,RB0RTtTJ,PS0PTCfI) 

30 CONTINUE 

26 IS = NH*1 
«RITEf6,130) 

DO 35 I^IS.NJ 

IFt ICOMP. eQ .01 60 TO 31 

IFttCHACHtll.LT.l.Ol.OR.tABStNXl.NE.ll) 60 TO 32 
IF(CMACH<1-1 l.LTil .0) URrTE(6,160) I 
IFtCHACHd-li.LT.l.D) J = 3 
GO TO 32 

31 IFt tXHACHd), LT»1.0»-OR«<ABStNX), ME. in 60 fO 32 
XFtXMACHt I-ll .LT.l .0) URITEf6,16D> I 
IFtXHACHtlT-l J.LT.l .0) J F 3 

32 IFtICOMP.EQ.D) GO TO 33 

IFt tCHACHd ).LT.l.D).AND.(CHACHd^l ».6E.1.0).AND. ( AB S <N* 1 .EO . 1 )) 

1 WRITEf6,17GI I 

IF( tCHACH d ) .LT. 1 .0 >. And. t ChACHCI-1 ) .Gc;. I.O ) .and. r ass (NX) .EO . Ill 
1 J - J+2' 

GO TO 3S 

33 IFt (XHACH d l.LT.l.Ol. AND. f XHACHtI-1 ) .GE.1.0 ) .AND, t ABS (NXl.EO.l ) 1 

1 WPITE(6,170I I 

IFt tXHACHd ) .LT.l.D ).AND{ f XHACHtl^l ) ,6Ei 1 .0 > . AND . ( ABS (NX > .EO . 1 )} 

1 J -J+2 
35 CONTINUE 

IFtICOHP.EO.OI WRITE(6.1Q5) 

IFtICOHP.EO.l) HRITEt6,106) 

DO AO I=IS,NT 
jrj,l 

IFtJ.E0.5i) HRITE(6»R5) 

1 Ft tJ.E0.51 l.ANO.tICOHP.EO.On «RlTEt6,lo5) 

IF( t J.EQ.51 ).AND. f ICOHp.EO.l )) WRITE (6, 106) 

IFtJ.EO.Sl) J=1 

rFtlCOMP.EQ.O) WRITE 1 6, 1 10) 1,X0N (1 > ,YON f I» ,S fl I , VI nC tl) ,XK ACH d | , 
1 CPI d> .PSOPTtl) 

IFCICOMP.EO.l) WRITE (6, 115) I,XONfl ),YON(I) , S tl ) , V COH dl , VB AR ( I J , 

1 CKACKtI),CPCd),RBORTd),PSOPTC{I) 

AO CONTINUE 

C THE FOLLOWING WRITES DATA JAPES FOR THE BOUNDARY LAYER PR06BAH 
ISTA6 = D 
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ISTftF =Q 
RTWINO 12 
REIWINO I'l 
DO 50 II = l.NSl 
I =: NS1*1-II 

iriVlNCf Jl.LT.O.Oi 60 TO 45 

IF( f ISTfiF.EQ.Ol.SND.HCOHP.EO.DU WRITE ( 14 , 1 « D1 X ON < I ) »YQN ( I ) • 

1 VlNC(l>,XHflCHm,PSOPTlII 

IF( {ISTAF.EQ.Ol.ftND.lICOHP.EO. II) WRITE ( 14,140) XON< I > ,YON 1 1 ) , 

1 VCOM«I»»CHACHH),PSOPTC<I ) 

IFtlSTAF.EO.O) TSTA6=ISTAG+1 
60 TO 50 

45 I Ft t VINE (I)#WINCII4 J ) . LT .B .0 ) . AND . ( TCOHP .EO.O l.AND . ( ISTAF .EQ .01 1 
1 WRITEtl4,140) XOmI J , yon 1 1 ) tVINC (1 ) ,XHACH (I I ,PSOPT( I J 

I Ft { VINE C I l*VINC tl + 1) .LT.O.Ol.AND.t ICOHP .EO.l l.AND. (1ST AF.EQ.Dl) 
1 URITEt 14,140) XONdl.YOMtl) .WCOHtD.CKACH tll.PSOPTCtlJ 

ISTAF=1 
50 CONTINUE 
REWIND 14 

IFtlSTAF.EQ.n ISTAG = ISTAG*! 

WRITE (12, 1501 ISTAG 
DC 55 I-l, ISTAG 
REaD<14,140) DIHDUH 
WRITE(12,1401 OIMDUW 

55 CONTINUE 
ISTAG =0 
ISTAF =0 
NSTA NH«1 
REWIND 12 
REWIND 13 
REWIND 14 

DO 60 I=NSTA,NT 
IFtVINCtD.GT.D.OJ 60 TO 56 

IF( tlSTAF.EO.O) .AND. ( ICOHP. EQ.O ») WR ITE { 14, 1 4 0) XON f I ) ,YONt I ) , 

1 VTNCm,XHACH(I) ,PSOPTtI> 

IFttlSTAF.EO.O). AND. (ICOHP. EQ. in UR ITE 1 14 ,140) XON 1 1 ) » YON ( I ) , 

1 VCOHtI),CHACmi) fPSOPTCtI) 

IF(ISTAF.EO.D) ISTA6=ISTA6+1 
GO TO 60 

56 IFt IVINCtI >*VINC (I-l) . tT. 0 .0 ) .AND . t ISTAF .E Q . 0 ) . AND . t 1 COHP .EO.O) 1 

1 URITE(14,140) XON(I»,YON{I),VINCtI),XHACHtI),PSOPTCI) 

IF{tVINCII)*VINC(I-l> . LT. 0. D >. AND. t ISTAF. EQ.D l.AND. (ICOHP. EO.l I ) 
1 WR1TE(14,140) XONfl ),YON(T) ,VCO«(I ) ,CHACH(I ) ,PS0PTC( I ) 

ISTAFrl 
60 CONTINUE 
REWIND 14 

IF(ISTAF.EQ.l) ISTAG=ISTAG*1 
WRITE(13,150> ISTAG 
DO 65 1=1, ISTAG 
READtl4,140) DIHDUH 
WRITEtl3,l40) DIHDUH 
65 CONTINUE 
rewind 13 
RETURN 

C **#*l#F0RHAT5*«*«* 

95 FORHAT(lHl) 

100 F0RHATUH1,10X, ’LOWER SHROUD *,/, lOX ,* ON-BOO Y POINTS*) 
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105 F0Rf*4T</:,2X,M*,7X,*X1,nX,'Y?,nX»«S*,l lX,lVU'Cl»e?!, !MACH» ,8X, 
1 *CP* ,6X, 'PS/PT * ,/) 

me FORpAT</,?X, *I • ,7X,’X*,11X»'Y',11X,'S’,1 lX,*y,C0Hl ,eX»?UBAP.’ ,8X, 
1 •«ACH’»8Xj’rP*-,6X,*RB/RT*,3X, ’PS/PT*./) 

11Q FOR»*AT<lq ,lP6Ei2.3 ,OPFB .41 
115 FORp.aHI‘»,1P7F12.3»QP2F«.4> 

12Q FORMATilHl , lOX.’HyB’, /;10X,'ON-PODY POINTS!! 

FCRP AT< i HI i 1 OXt »UPPFR SHROUO • , ^ , I OX , ’ 0 ti-E OpY POINTS*) 

14C FnRHAT(DP5F10.41 ' 

150 F0RHAT1131 

180 F0i<HAT(/»2X , *ON-BCIOY SUPERSONIC VELOCITY CORRECTION STArT^ ! 

1 -1 r *,14,/) 

170 FORHATtJX, •SUPERSONIC VELOCITY CORRECTION STOP, I r *,I3|/1 
ENO 
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SLuPOUTlNC OFBOY 

CPKKON /COOCO/ XON (700 J',Y0N<7D0 ),,XOFF (20 0 iVOFf (2Ra) ,S <700 J t 
j SIC 700 > ,XtFS7 .XTESTI , xTES T? ,TCL f YCO ,TCL 1*YCL2 « TCU 1 » 

2 YCW2,XRl,XR2tXRH,YRl , YRZ » YPH , CUT Of 1 ,C U T0F2 , CUTOF H , 

3 FLK'D,aNC( 70 0 J,AR»7r0),AR0FF (200) 

CtKHON /COUTy HT.l>)Sl,NH.KP,lWrNX,KNP , ICOt-P ,K ,MXH 1 1 .KXH12 »NXHI 3 , 

1 NS7 2,NST3,NST7,NPPRC3D),,IRAK ( 3P) ,»* J ,«2 t ICOMPl . IPt- , 

2 IHUB 

CFH-ON /CONOIT/ TT0TAL,PT,PSTtT,T5TilT ,PS T #T C , A TO T« L ,P TC ,RHOST , 

1 HHOTOT »A5TATtQCINF 

CCP.MON /SOLUT/ VBARf7Q0J ,VBAR0(Z00 I ,VINC (700 J »VXIKC( 20CI » 
VYJNC(2CI0T*»MOB(7QOl ,P BOR T l70o 1 HOBO ( 2DD I , 
VCPM(7DC) ,RBrOT tZOOl ,VREC 2Q0 > tVRECOHtZOO) t 
VXCOH( 2G0J »WYC0K(2DDI,THETA (200».PS0PTC(700» « 
PS0PT(7pOI*CPACH(7OQJ|XMACH(7OD>»CPIl7001»CPC( 700 I , 

RH(!I(700> 

PSOFPC 1200) tPSCFP (200) ,C PACO (200 > ,XHAC0(2Q0 ) f 
RMOPl (2D0T 


CCPPON /SOL'iTO/ 


CCHHOK/RICT/VPERIN tXX , XHIN«F XEP »VY , YHIN , ORD ,EKST 0 P , AL , A A A A 


THIS SUPoduTINF CALCULATES OFF-BODY PROPERTIES 

ni'F\510N WT0T(30) , YINT 1 200 ) tRV ( 20D ) iWFR ACI 2001 

WP1TE(6,1I 

or 1C 1 =1,NP 

VCONC : O.2*(VREC0H (1 »/AT0TBl)** 2 
VCC^ - O-2*(VRE(H/AT0TAL)*«2 
IF(VCONC.CT.].Q> PSOFPCdJ = 0,0 
IF(vC(’HC.GT.l.Ql CHACPdl = 999.0 
IM VCCN.(5T. 1 -Ol XPACOd) - 999. G 



u u u. u u u u ui 
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1F( V‘CON.6T,1.0J PSOFPCU = D.D 
1F( VCON.GT. 1.0» RHOOHn = 2000.0 
IF( (VCONC.GT.l.OJ.AfJO. (VCOH.GT.l.O JJ GO TO 10 
IF< VCONC.GT.1.0) GO TO 5 
.PSOFPCIII = tl.0-VC0NCI*#3.5 
CHACOdl = VRFCOHfI>/ATOTAL/SORTf I.O-VCONC) 
IF(¥C0N.GT.1.0> GO TO 10- 
5 PSOFPai 3 tl.n-0,S*RH0T0TtVREfIJ**2/'PT) 

xnAcoai = Vrf<ii/atotai./sortu.o-vcom i 
10 continue 

DO 50 1=1, K 

IFd.EQ.lT NPH = NPPRm 
IFd.EQ.ll NPL = 1 
IFd.FQ.ll J3 = nPH 
II = NPPR(I-I >+l 
20 DO 30 J=2,K 

IFCI.NE.JJ 60 TO 30 
MPL = II 

NPH 3 NPPRt J»TNPPFt{J-n 
J3 = NPPR(j‘» 

30 CONTINUE 

IRAK = 1 RAKE IS UPSTREAM PF BODY 

= 2 RAKE IS ON LOW.EB EXTENDED LIP 

= 3 RAKE IS COMPLETELY IN INLET UPSTREAM OF HUB 
= R rake is DOWNSTREAM OF AND ABOVE HUB 

= 5 rake IS DOWNSTREAM OF AND BELOW HUB 

= 6 BAKE IS OUTSIDE AMO BELOW IV.LET 

= 7 RAKE IS OUTSIDE 4ND ABOVE INLET 

THEAL = 0.0 
THEAH = 0.0 

IFlIRAKdI.EO.l J GO TO BO 
IFdRAKd I.ED.2) GO TO 60 
IFlIRAKdJ.’EO.S) 60 TO 70 
IFdRAKd J.rp.A) 60 TO SO 
IFtIRAKd>.EQ.5l 60 TO 90 
IF(IRjlKm.Ep.6> GO TO 220 
IFdRAKd l.EQ^TJ 60 TO 230 
RO WRITE T6, sop J I 

IFdCOHP.Ep.OI WRITEI6,521) 

TFdCOMP.EO.l J WRTTEt6,522> 

DO AS L = nK,J 3 
LL = L-?NPL+1 
YINKLLJ =YOfFlLJ 

IFdCPHP.Ep.gi pyjLL) = VXiNCfLURHflTOT 
RHO=fPSOfPpiL>**d ./1.4M 

IFCICOMP.EO.l ) RVTLLT = VXf OH tL J ^ RHO>»RHO TOT 
AS CONTINUE 

call' INTEECBV,YINT,WTOTdJ,lL> 

Ll = NPL*I ' ■ 

DO 46 L = LI,J3 
LL = L-NPL*1 

call INTE6tB¥,YINT,H,LL> 

UFRAC«LL» = W/WTOKJ) 

46 CONTINUE 

WFR.AfdJ = 0.0 
DO ibfl N = iypi,d3 
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MV - M“NPL-»l 

IFCICOKP.EQ.OJ WRITE 16,^505 NH , XOFF f N ) , TOFF (N 1 , V J^TNC ( N ) , V YINC {N T , 

1 URFCNi .THETA {N),XH« CO C^» tPSOFP tNJ,WFRAC(NW> 

IF<ICOHP.E0.1 J «RITE{6,560> NU , XO FF { M J , Y OFF CN J , V XCOH ( N J . VYCOM CN ) , 

i VRECOn«N>,THETACN> tVBAROCNJ ,CHACO tN>,RBOOT{Nl,PSOFPCINI,UFRACfNUI 

100 CONTINUE 
60 TO 50 

60 WRlTEI6f500) I 

IFdCOKP.EQ.O) HRITE{6tS21T 
IFdCOHP.EQ.il URITE16.5221 

DO 110 no = NXHI1,NSJ Turnt - 

IF! {XOFF(NPL) .GE- X 0N( 1 10 1 J »AND * IX OFF f NPL 1 .LT. XON d ID ■»! 1 THEAL, - 

1 ANGCIiO* 

110 CONTINUE 

call INTER3IX0N.NXHI1 .NSl.XoFF ( NPL > ,YINT d » ♦ VLC , VL I, ROC ♦VBL , 

1 CHL.XMLtPL.PIL J 

VLIX = VLI^COSdHEALl 
VLIY = VLI>»SINdHEALl 
VLCX = VLC^COSdHEALl 
VLCY = VLC=»SINdHEALl 
THEAL = THEAL*I80.0/3.14159265<1 


IFCICOHP.EQ.O) 
IFdCOMP.EO .11 


RVdl 

RVtl) 


= VLIX4RHOTOT 
= VLCX*PL«=»d . /I. 


,i|)!»PHOTOT 


DO 120 L = NPL.J3 
- NW = L-NPL+2 

YINTCNWl : YOFFtLJ 

IFdCOHP.EO.Ol RVIHtf) = VXInCU)*RHOTOT 
RHO = tPSOFPC JL>#4d./l •«*») 

IFdCOHP.EQ.il RVINW) = RHO^YXCOHILl-lRHOTOT 

120 Continue 

121 X3 = 0.0 

CALL INTEGIRV.YINT.WTOTII) ,NH> 

TFdCOHP^EQ .01 wRITE( 6*530I X0FF(NPL J »YINT(1 > rVLiX »VL1V*VLI*TKE L* 

SFdCOHP.-EQ.ll'*URITE« 6 ,540 1 XOFF (NPL ) tYT NT d 1 *VLCX ,VLCY,VLC »THE AL, 
1 VBL,CHL,R0C,PL,X3 


DO 130 L=NPL,J3 
LL = L-NPL+2 

CALL TNTEG«RV,YINT,W,LL) 


LI - L-NPL+1 

IF (ICOHpIeO. 01^^^11^16,5501 L 1 ,XOFF (L ) , Y OFF (L 1,VX iNC ( L l.V YINC IL 1 , 
1 VREa),THETAIL),XHACO(L>,PSOFP(Ll,UFRAC(Lll , 

IF< ICOHP.EO.H WRITE 16, 5601 LI ,XOFF (L» t YOFF t L 1 ,V XCOFU L 1 »VYCOM IL 1 , 

1 VRECOHIL I ,THETACL 1 ,VBARO(L>, CHACO (LI ,RBOOT( LI ,PSOf PCIL I ■» 

2 WFRACILI) 

130 continue 

GO TO 50 

70 DO 140 no = NXHI1,NS1 - 

IFt (XOFFCNPL) .GE.XONIllO I J . A NO • t XOFF I NPL 1 .LT . XON II 10<1 1 1 > THEAL - 

1 ANGdlDI 

140 CONTINUE 

NNS = NH+1 

DO 150 IlO ^ VNS*NXHI3 , - 

IFt (X0FF(NPL>.LE.X0N(1I0) 1 . AMO . I XOFFINPL 1 ,GT . XON d 10*1 » > 1 THEAH 
1 ANGCllOl 

150 CONTINUE 
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NHl : 
CALL 


1 


IMTER3»XOM,MXHll,NSl,XOFFlNPLlttlNTCl),VLC,VLUROC,VBL. 

CHL,X«L,PL,PIL » 

INTFR3 t'X0N,NN5 ,NXHI J,XOFF {HPL>,YINT tNH 1'>',VUC, VUT .ROCU* 
VBU,CKu,XHUI,PU,P1LM 

160 VOC z -VUC 
VUI = -VUI 

VLIX = VLIPCOSCtHEALl 
= VLI»SIN{THEAL» 

= VLC#CaS{-THEAL> 

- vLC^SIWcTHE-ALf 
= VUI*COS(THEAH> . 

= VUli»SlN{THEAH> 

= VU’C+COSt'THfiAH) 

: VUCPSINt'THrAH^) 

THEAL = THEAL*iaO.D/3.r415'92’65‘f 
THEAK = THEAH*'! 80. 0/3-. 141592654 
WRITE f6, 5001 I 
IFdcOhP.EO.'O'l WRITE<6,521-'J 
IFtrcOHP.EO.l f WRITEt 6,5221 

IPdCOHP.EO.llRVIlt = VL'CX*PL'**Vl./I,4|*RH0TbT 
IFdCbHp.EQ.QiRvd 1 = VL3X«PH0'T0T 
IF< TCOHP.EiQ'.O )RV(MHM : VUIX*RHOTOT 

= VUCX'*PU4#'ll,/l,<* J*RH0T0T 


CALL 


VLIY 

VLCX 

VLCV 

VOIX 

VUIV 

vucx 

vucr 


= VXIHCfL 1 *RHOTOT 


165 


IFdeOHP.Eo . DRvtMHlJ 

DO 1’65 L = 'NPL.J3 
LL = L-WPL«2 
IFdCOHP.TO.O) RV(’LL» 
yJNKLLJ =y'0'FFtL> 

PP ‘0 = {PSorp’C'{L>P*d .yi ',4 M 

IFdCOMP.EQ .11 RVJL'LI = WXCOH t*L »+RHO^'RHOTOT 
CONTINUE 
NM=LL 

IPT=NPp'Rd) 

v^in^h''‘^‘^’*^°*''’'*''°*'’'°'''"‘^"TJ.LT.X0N{NXAl3m SO TO \q'i 

^ j— U V u 

CALL INTEG'(RV,YINT,MTOr(i J 

^iFdcoHP.Eo.o) “^”e<6,'53di xoff( npl j , VI NT ( 11 •.Vlix , VLI VjVL I V THE'AL , 

^lr<ICO«P,tO-.U “«ITEl6,54Q)^X0FnNPLJ.yiNTdJiV^ 

DO 170 I = l>iPL,d3 ’ ’ ’ 

LL = L-NPL*2 

CALL rNTEGfRV,vlNT,H,Lll 
LI = L-NPL*1 
WFRACILI) = W/WT07<ij 

IFdCOMP.EQ.al WRrTE<6v55Dl LI , XOFF IL 1 , V OFF?L > , VX INCIL 1 ; V YINC II » 

2 VRE»L»,TNETAtLl,XHACOCLl,PSbFPCLl>WFRACan * 

1 VRECoSid 

2 J’^^^^*“-^»’'®*'*“f<-J,CMACOfL),RBOOTfL>,PSOFPCfL), 

170 CONTINUE 


LI=L 1*1 

WFRACtLll =1.0 

IFdCOMP.EO.Of WRTTE(6,530i XOFFCMPL J , VINT (NH 1 1 .IfUlX , Wuiv.vOr . 

* theah,xmui.piu,«fbac(lii 

IFdCoHp.EO.ll WRITE C 6,-540) XOFFCNPL 1 , VINT tNfj 1 ) , VUCX , VUCY i VUc. 
1 ^-HEAH.VBU.CHU.ROCUtPU.WFRACiLl) 
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60 TO 50 
80 NTl = NH 

00 180 llo = ^XNI^,NT 1 
IFC « X0FF(NPLl.6E*XON( IIQ > t .AMD . IXOFF (NPL 1 .LT . X0N{I1D + J ) ) J THEAL = 

1 ANGIIIO) 

180 CONTINUE • 

NNN = NH+1 

DO 19D IlD = MNN.NXHIJ 

IFt f XOFFCNPL) .LE.XONI 110) ) .AND . IXOFF (NPL ) .6 T .XON C 1 10 -» 1 ) » > THE AH = 
1 ' ANGIIIOJ 

190 CONTINUE 

NHl = NPH+2 

CALL INTERS IXON ,NXHI2 ,NT1 , X OFF I NPL » » TINT C 1 ) , VLC , VL I ,ROC t VBL» 

1 CKL,XHL,PL,PIL > 

CALL INTERS IX0n,NNN.NXHI3,X0FF(NPL> ,YINT INHII , VUC » VUI ,ROCU , 

1 VBU,CMU»XMUltPtJ*PTU) 

60 TO 160 

90 DO 200 110 =NXHI1»NS1 

IFI tXOFFI MPL J .GE.XONt non .AND. IXOFF (NPLJ .LT . XON < 1 10 + 1 » ) ) THEAL = 

1 ANG(IIO) 

200 continue 

NNN C,NS1*1 

DO 210 no = NNN.NXKI2 

IFI IXOFF CNPD.LE.XONI IlOJ ) . AMD . IXOFF ( NPL I .GT . XON < 1 1 0 ♦ 1 ) ) ) THE AH = 
1 ANGIIIOI 

21D CONTINUE 

NHl = NPH»2 

CALL INTERS tXON.NXHll ,NS1, XOFF I NPL ) , VINT II ) , VLC , VL I ,ROC, V BL. 

1 CHLtXHLtPL ,PIL) 

CALL INTERS IXOm, NNN »NXHI 2f XOFF I NPL) , VINT (NHl ) ,VUC ,VUI ,ROCU, 

• 1 VBU,CHU»XHUI,PU,PIU) 

GO TO 160 

220 DO 221 110 = ItNXHII 

IFt IXOFF C NPL) .LE.XON IT inn .AND. (XOFF ( NPL ) . GT . XON fl 10 + 1 )) ) THE AH = 
1 ANGIIIO) 

221 CONTINUE 
URTTE(6^50Q) I 
IF(ICDHP.EQ.O) URI7EI6,521) 

IFITCOHP.EQ.il HRITE(6»522) 

NHl - NPH+1 

Call INTER3 (X0N,1, NXHIltXOFFINPL) ,YINT(NH1 ) ,VUC,VUI,R0CU, 

I VBU,CHU,XHUI,PU,PIU) 

IF(ICOHP.EO.O) RVINHl) = -VUI*COS ITHE AH) »RHOTOT 
IFtICoHP.EO.n RvtNHl) = -VUC#COS I THE AH ) «PU*» 1 1 . / 1 . A ) «RHO TOT 
VUlX = -WUl + COSI THEAK ) 

VUIY = -VUI^SINITHEAH) 

VUCX = -VUC*COSITHEAH) 

YUCY = -VUCX'SINITHEAH) 

VUI = -VUI 
VOC = -VUC 

THEAH = THEAH^X&O. 0/3.1^1592654 
00 222 JJ - NPL.JS 
Jl = JJ-NPL +1 

IFIICOHP.EO.O) RVIJl) = VXINC(JJ)=*RHOTOT 
RHO = tPSOFPC t JJ)++( I ./ l.ttl ) 

IFtICOHP.EQ.l) RVtJl) = RHO^VXCOM ( JJ)*RHOTOT 
YInTIJI) = YOFFUa) 



228 


222 CONTINUE 

CALL INTESff?V,YINT»HrOTa» ,NH1» 

00 223 J MPL,J3 
JI = J-NPL+2 

CALL INTEGtPV,YINT,W, Jl) 

UFRAC<jri = W/WTOTtI) 

WFRACm = 0.0 
J? =Jl-l 

IFtICOHP.EQ.O) WRITE (6, 550) J2, XOFF T J » , Y OFF t , VX INC ( J» ,VYINC Cd», 
1 VREfJ) , THETA fJ» tXHAC0M),PS0FPlJ}',UFRACJJ2) 

IF«IC0«P-E0.1) WRITE t 6,560) J2,XOFF<J),YOFF{J),VXCOmj),VYCOH{J), 
IVPECONCJI ,THETA<JI ,VBAROtJ),CHACOtJ),RBO 0T( JJ *PSOF PC ( J J ,«FR AC { J2Y‘ 
225 CONTINUE 
J2 =J2+1 

IFdCOHP.EQ.D) WRITF{6,55D1 J2 ,XOFF I NPL ) , VINT INH U ,VUIX, VUI Y ,VUI , 
1 THEAH,XHUI,PIU,WFRACfJ2> 

IFt ICOMP.EO .11 WRITF t 6 ,560) J2 ,XOFF tNPL) ,YTNT INHI ) ,VUCX , VUC Y , VUC , 
1 the ah ,VBU,CHO,ROCU,PU,UFRAC< J2)- 

GO TO 50 

230 'write «6,5Q0 > 1 
XFdCOHP.EQ.O) WRITE«6,S21» 

TF(ICOMP,E0,l > WRITE<6,522> 

DO 231 no = NXHI3,NT 

TFdXOFFJNPD.GE.XONdlOD.ANO. IXOFF «NP L J .LT .XON ( I lO + l ) ») THEAL = 

1 ANG(IlO) 

231 CONTINUE 
NHl = NPH+1 

CALL INTERS <X0M,KXHI3,NT ,XOFF 1 NPL) , TINT t 1 I , VLC , VL I.ROC, VBL , 

1 CHL,XH1_,PL,PILJ 

VLIX r VLn.COStTHEALl 
VLIY r VLI’)SINtTHEALI 
VLCX = VLC+COSdHEAL) 

VLCY = VLC#5INITHEAL> 

THEAL = THEAL*la0.0/3.lN15926S4 
IFdCOKP.EO.O) fiVfl) - WLIX*RhOTOT 
IFdCOMP.EO.l) RV(1) = VLCX«PL>**C1 ./I .4 ) 4RHOT0T 
DO 232 J = NPL,J3 
JI = J-NPL-*2 

IFtICOHP.EO.O) RVfJlJ = VXiNC 1J)*RHOTOT 
RHO-CPSOFPCIJf*«d ,/l .4) J 

IFdCOMP.EO.l) RV(Jl) = RH04VXC0H f J )*RHOTOT 
YINTCJI) = VOFFCJ! 

2’3'2 continue 

CALL INTEGIRW,YINT,WTOTm,NHll 
WFRACU) = 0.0 

IFdCOHP.EO.O) WRITE {6, 530) XOFFtNPL),YINTd),VLlX,VLlY,VLI»THEAL, 
1 XML,PIL,WFRACd) 

IFt ICOMP .EO .1 J URITEt6,S40) XOFFI NPL ) ,Y INTd ) ,VLCX , VLCY, VLC, THE AL, 
1 VBL,CML,ROC,PL,WFRACti) 

00 233 J = NPL.J3 

J1 r J-NPL<2 

CALL INTEGtRV.YiNT.W, J1 ) 

WFRACtJll = W/WTOTd) 

J2 = Jl-1 


1 


IFt ICOhP.EO .0 ) WRiTEt 6 ,550 ) J2,X0FF fJ),YOFF(JI,VXlNC(J)*VYINC(J), 
VRE iJ), THETA f J ) , XHAC 0 ( J > ,PSOFP f J ) ,WFRAC { J1 I 
IFdCOMP.EO.l ) WRITE 16 ,560) J2, XOFF t J) ,Y OFF { J ) ,VXCOH ( J 1 ,V YCOH tJ), 
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1 VRECOH<JJ, THETA tJ>rV8ARO(JJ.CHACOCJ»,BBOOTtJJ,P50FPCtJ>,WFRSClJl» 

233 CONTINUE 

: the^ollowing calculates integrated rake height FLOU data 

WRITECGiSTO j 
DO 200 I=ltK 

UTOTtlJ = gT0Ttll'»32.17«l/12.D 

ini.EQ.ii npl = 1 
IFtI.NE.il NPL = NPPRtl-U ♦ 1 

TQ = NPf’RfI) 

TFfTPaKfTi PO AREA — YOrr t 19 ) — YOFF iNP L) 

^FtlRAKtulEoIzi CALL INTER t XON , YON , NKHI I ,NST3 , XOFF ( NPLI , YL 1 

IFllRAStri.i^GJ CALL IN TE R t XON ,Y ON .1 , . NXHIl ,XOFF t N PL 1 ,YH I 

IFtlRAKtll.EQ.GI AREA = YH-YOFFtNPLl vnFCfWPiY YLI 

IFtiRAKtl I.EO.TI call INTERfXON,YOM,NXHl 3,NT, XOFFtNPLJtYL 

iDiTCr=^jT0TtI1/I!R“*12!KRTlTT0TAL/518.67)/PTC*2^ 

1 I 

IF(ABStEF/0FDM/(EH*EF/DFDH»J.6T.0,01» 60 TO 235 

g RITE t6, 500 1 I,XOFFtNPLl,IRAK(I),WTOTtI» *WOOTCA,EH 

IFtXOFF f NPLI .EQ.XTEST J EHSTOR=EH 
200 CONTINUE 
RETURN 

C *#«#*FORHATS*#**’» 

1 FORHATUHU 

ifr prNArt;:«:i?-:rx"^TDx^- 

1 ,6X,'HACH»,6X.*PS/PT%0X,’WFRACT ./» •theta* 

530 FORHATtoX tlPTEll^TjDPFS.O.lPEll -31 
50 0 FORMATtOX,lp8E11.3 tOP2F8.4,lPEli.3l 
550 FORHATtIO ,1P7E11.3 ,0PF8 .0 , IPE 11 .31 

560 FOR«ATeiO,lP8E11.3,DP2F8.0,IPEll*3) •! • . 8 X . * X* .R X t ’ * » 

570 F0RHATt///,JOX,’RAKE WEIGHT 

1 4X,*tfO0T*,10X»*W0t)TCA*,3XT*HACH* ^/i 

580 FORHAT<10,5X,OPF8.0,IO,1P3E10.5> 

END 
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SUfcPOUTlNE VB&BIT I VBAP , ft TO T 4L ,RHOTO 7 ,RHOB* P ) 

C 

C THIS SUPPOUTINE ITERiTJVELV CAlCULftTES RHOPftP 
C 

VCEIT = ATOTftL/SOPT <1 .2) 

1=!; 

VtUFS r V3AP 

10 VC-UESft = < VtlUES/ATOTAL 
ft = l.j-P.2*VGUESi. 

P = ft -VGUESA 

VCOPP = (VRA»-A**7.5*VGllES )/<ft**l .5*B 1+VGUES 
irtftBsi ( vco«p-vgufs)/vcomp).lt, 0.00^1) go to is 
I =1*1 

IftVCftKP.GE .VCR1T» VCOMP r r.S^TVGUES ♦ VCBIT) 

VPUFS : VCOk-P 
irtI.PT.?CJ GO TO 15 
GF TO i: 

IS PHOEftC r <1 ,0-0.2« < VCTHP/ft T0TAU)**2 )**2. 5*RHCT0T 
TFtl.PT.ECl l/R:TE(6,2r> VPftP, VCOMP, PHOBAR 
fFtI.PT.2C.l VPAR = VCOMP*RHOBAR/RHOTOT 
RETl'R'-' 

C 4r*««^F0PKATS*>ft*** 

?!, FORPft UIHS, ’I EXCFEDS 2C ITERATIONS FOR RHOPA P* , EX , » VE AR = • 

1 lPEir.3,2X,»VC0HP r « , IPE 1 0 .'3 , 2X , »RHOB AR = ‘.IPEIO-S,/, 

2 • VEftR HAS BEEN REDUCED TO VCOHP*RPOBAR/RHOTOT , WHERE * 

3 ’VCOMP = VCRITICAL*) 

FTD 
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SUEROUTINE INTEP ( A iP t »N2 tT ,D 1 

C THIS SUpPOUTINC INTCPPOLATFS APBAV "A" FOR THE VALUE "C” _ 

C AND RETURNS IN "D" THE CORRESPONDING VALUE FPOH "B" . 

C 

DIPFNSION X(7CD » ,V ( 7GC) ,A < 1 ) ,P« II 
N = K?-N1*1 
DO 1C l: 1 tK 
X <I I =A(N1*I -U 
Y II 

It CONTINUE 

call SOPTXY IX,Y ,N) 
or IS 1 = 1 ,N 
K = I 

IFIr-X(Il) ?5,2C,15 
15 CONTINUE 
?_ 0 = YIKl 
GC TO 3= 

25 lE(F.'-O.l) r.O TO 35 
IFlK.rO.N) K=N-1 
I FIX tKl .EO .X IK+1 n K=K-1 

Vl = IC-XIK ) )*|C-X (K+ 1 n/ I X IK-1 )-X I K n/l X (K-1 1-X (K+1 1 1 

U2 = IC-XIK-1) l*tC-XI K + in / IXlK )-X(K-lM /IXtK l-XI K *11 ) , 

W3 = IC-XlK-11 )*tC-XI K))/ tXIK+l l-XI K-in /tXCK + ll-X m I 1 
C = yiK-l)*Wl*YIKl*U2*YIK+ll#W3 
?C RETURN 
35 D = Yin 
RETURN 
ENP 



non 


232 


SI'EROMTINE 50RTX1M X,Y ,NPTS ) 

THIS SURROUTINF SORTS "X" INTO ASCENDING ORDER 

DIMENSION Xt3CDI,Y<3CO) 

N = NPT$- 
Nf r ►-! 

DO IC KT = 1,NN 
X MI N r X I K U 
Jto - KT 
JKL = KI+1 
DO 2Z JK = JKL,N 

if(xmtn-x<jk »} Z0t2nf?5 

2b XHIN = X (JK J 
JAD = JK 
?t CCNT1K.UE 

T^IK r Y ( JftP) 

X(Jir.» : X(KT» 

Y (JAD> : Y(«T) 

X(KT) : XMIN 
Y (KT> r ymIN 
:: CPNTl'UE 
RETURN 
END 
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Sl'fcEOt'TINE INTER2tIUI?fA,BtC,D,EtF»GI 

Cri-rOK /COORE)/ XOMETCCD .YONETCC'J.XOFFIZOUI.VOFFIZ.CCO iS I700> , 

Sl(7C'Dl,XTEST,X.TESTl,XTEST2,YCL,YCU,YCLJ,yCL2,YCUl, 
YCU2,XR1,XR2iXRH»YR1 tYR2»YRH,cUT0f1 ,CUT0F2,CUT0FH, 
ELNO tAN6(7”LO , AK 1 7 CC ) i ARC FF C ZE*') 

CTHHON /VFLOC/ VU7EC) , V 2 I 7uL ) , V3 < 7CO) , V <11700 ) , V5 ( 7C0> f V 1 X 1 200 » , 

1 V2X (2Cn> ,V3X (2CC), V<IX(2D0 ).V5X <20r> «V1 YE2D") , 

2 V2Yt20DliV3Y(2C0),V‘<YI2GO»,V5Y (200) 

COHKOF /COUT/ N7,MSl,NH,NP,IUtNXiKNDtIC0HP,K,KXHlI 12 ,NXH I 3 i 

1 H£T2,NST3,NST7,NPPR( 3C'),lRAKt3r),Kl , K2 , ICOHP 1 , JPL , 

2 IHUB 


CALL 7N7FR(XON,YO»J,i 1 ,12,AtP) 

CALL Ih7ER(yON,Vltll»12iA,C) 

CALL IMLR(X0N,V2.I1» 12*4.0) 

CALL INTER(X0M,V3,I1,12tA,FI 
CALL INTERtXOV, V<|,I1,I2,A,F) 

IFUHLt&.'iE.*) CALL IN TEH ( XON , VS , 1 1 , 1 2 , A , E ) 

IF (JHl'B.EO.") 6=0.0 

RfTURA 

FFO 
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c 


1 

2 

3 

1 

2 

3 

<1 

S 


SVEROltTIKE INTERS rAiIl,l2*C,D,E,FjH,P,0,R,S2,T) 

COHHOV /COOPD/ X0Nt70n>»V0Nt7C0>,X0rFl2DS),YOFf{20D),S(7C»'l, 

SI (7 DO J iXTEST iXTESTl tXi£ST2,YCL,YCU,TCLl,YCL2,XCUl 
YCU2,XR1,XR2;XRH,YR1 ,YR2,YPH,CUT0F1 ,CUTOF2 ,cUTOFH, 
ELND ,ANG<7DO),AR(7nO) ,AROFF (2CE) 

COMKC*'- /SOLUT/ Vi A R ( 7 rt> t VB ARC ( 2 "0 ) , V IMC 1 7CD ) , VXI N C < a'O , 

VYINCt *RHOP(770) tRBOP TI 7 JDJ.PHCBO t20D) , 

VC OH (7 CC I ,RB00T(2DDJ , VRE ( 2 C-0 J , VRE COK ( 2DD> 
vxr0"t 2Cfl) * VYC0H(2D: ) ,THE 7A (2Cr>fPS0PTCI7CD) , 

. PS0P7I7OD) ,CHACH(7CC j ,XHACM{7CO,CPI I7t)0> ,CPC <7G<'J 

RH01(7D3) 


DIHCNFION AcTCuI 
CALL INTER<A,Y0M, IltI?iC,D) 
CALL rNTFR< A.VCOH, I1»I2,C,F> 
call INTtRfA.VlNC, H,r 2 »C,ri 
CALL INTERIA.RBORT ,71,12, C,H) 
CALL INTER(A,VBAR, I1,I2,C,P) 
CALL TNTER<A,CHACH,I1,I2,C,C> 
CALL TNTFR(A,XHACH,T1 ,I2,C,R J 
CALL INTFPAA,P$0PTC,I1,I2,C,S2I 
CALL INTCPfA.PSOPT, I1,T2,C,T} 
R'^TLiRV 
EAD 
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r. 


SUE: BOUT I Nt INTEG t B t *i C 1 1 1> 

THIS Sl'P'^OUTlNr IS A TRAPEZ01Ci*L TN■fEGPATIft^ ROUTINE 
DIHEN'ION AtTCDJj'’ <TC0» 

SI'K = l.Q ' • 

no It 1=2,11 

S UK + — 

ir. CCMTIf'UE 
C = SUK ' 

PCTUfii\ 

END 
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Sl&ROl’TINf CALTIT . 

COMl'Cf./ VELOC/ VH7OOliV2(7Cri»V3(7QO)»V<4l7C0liV5l7CpJ,VlXt2O0>.« 

1 V2X(2'5CJ,V3X(7Cn ,V4X(2DC> , V5X 1 200 ) , VI Y <2001 , 

7 V2Y(20D) tV3Y<2«jtliV<lY (2CCI ,V5Y< 21^01 

CPH‘'0*i/c> I C7 /VPEpIN,XX»XHIN,EXEP.YYiYH 1N, OPO ,E PSTOff ,A L , AAA A 
COI^POK /COO'^O/ XON t 7G0 tYON ( 7C0J |X0FF(20C),Y0T'F(2nCl ,S <-7001 , 

1 51 (7fC),XTES7,XTESTl ,XTEST2,YCL,YCU,YCL1,YCL2,YC01, 

2 YCUZ*XRl,XR2,XRHtYPl.YR2,YRH,Cu70Fl,CUT0F2,CUT0FH, 

3 Fl.ND,ANGl7PO)iAR<7'':i)iAROFF<ZDCi) 

CPUPON /C0U7/ fj7,NS 1 ,NH f NP 1 1 W ,NX, KNf) ,ICOmP,K , MXHI 1 *NXH12 tNXHI 3 • 

1 KS7 2,NST3,NS7 7,NPPP<3 0),IRAK<3n,Kl ,K2 , IC0*1P1 , I P L , 

2 IHUB 

C 0HP0K/S0LU7/ V‘>AR<7CCJ»vaAP0<2C0>,VltiC<7P3)tVX3hC<?D0)f 
1 VYl*<C<2CC)tPP^^® 1 7 jC 1 1 ft6 ORT <73 iP I ,RHOB 0 < 2301 • 

7 VCdM<7DC)»RB00T<2C0>tVRE(2CQ>|VfiEC6>< 1 2:)P1 • 

' ■ VXCOH <2 CO) *VYCQ(' 1 200) « THET ACz^C > tPSOPTC < 70C-1 , 

It P50PT<700)tCPACH<700>iXKACH(700l»CPI (700 t CPC I7CC) i 

$ RH0K70O) 


7HIS SlIpPOUTINF TITLES THE PLOTS OF PS/PT AND HACH NUHBEP VS S 


DlPEK'in*) B0<2).BP1(1) tPD2<2 I |BT(3)«BT2< l)tPTIT<l)tX<3OtY<30)t 
1 371(31 

D<TA AA,'AB,AC,AD,AE/*ANGLE = ’t’VI»)F =’,'«ACH =*,*AT X = , 

1 *SCALE=’/ 

n(T.A =E/’UPPEP ’.’SHROuP’/ 

PfTA '--ill/' PUP- V 
r-ATA °C 2 /'LrWER »,*SHPOUD*/ 

DATA FT/* 1 n».'Er • , ' SdRF AC* , *E 
CATA ETl/'OUTER * , ’ SU PF AC * , *£ 
r- AT A ?T 2 /’ SOEF = • / 

TATA '^TlT/’</SREF*/ 

IF(J pL.ro. 17 1-GO TO 6A> ■ 

TP - 
KS = 12 
HF : 

pc ir 3 r 1,10 
X (1 ) : f*.- 
' 17 CCMIVUE 

V (1 ) r 1 ,r 
pr 2. I = 1,19,*' 

X (I 1 r I'.C 
X<1*1) = 

7'- cof.Tiwur 

H = 1 

or, 7.C 1-2*19.? 
t<:K-*l 

VUl : l.C+F 

YU + 1) r I,r*K 
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3: COMTIVUE 

CALL PL0TID.D,1.0,3) 

00 MC 1= 1,19,2 

CALL PLOT(XtIl,Y(I) ,2) 

CALL PL0T(X«I+l),y<I+l),3) 

PC CONTINUE 

CALL PLOT (D.C, le.D, 2) 

CALL PLOTU .C,,C.0,3) 

DO 5C 1=1,19,2 

CALL PL0T«Ym,Xm,2) 

CALL PL0T(Y(l*n,X(I+lJ,3) 

Vv, CONTINUE 

CALL PLOT C IP.D, C.O, 2) 

CALL PLOT(O.C,G.O,3) 

A = 7.1 
P = 1.3 - 

IF(IPL.CO.I) CALL SYH90HA,P,hF,B 02,TH,12) 
iniPL.EO.2) CALL S YNPOL ( A , P ,HE ,8D1 , TH, & 1 
IF1IPL.E0.31 CALL SYHPOU A ,B ,HE ,BD, TH,12) 

IFIIPL.EO.2) 00 TO 55 
A =6 . 1 
P=e.3 
HE =• r.l5 

CALL SYMBOL < A,B,HE , 1, TH,-1 ) 

A=t .5 
B=3.2 

CALL SYHB0L<A,B,HE,23,TH,-n 
A =6 .8 

CALL SYH?.0L(A,E},HE,'’T,TH,161 

A =6.1 

P=7.» 

CALL SYH30L(A,B,HE,2,TH,-1) 

A =6 . 5 
R=7.7 

CALL SYMBOL (A,B ,HE ,23 ,TH,-1 1 
A =6 .e 

cjll symbol (A, b ,he ,bt ! ,th, i?i 

55 A =7.1 
P =- .£. 

H E= C . PS 

CALL SYMBOL <A,B,HF.,PT2,TH,6) 

A =8 .11 

IF<1FL.E0.1> CALL NUN OER | A , B , HE , CUT OF 1 ,TH , 3 » 

1F<1PI.E0.2) CALL NlJMBtRIA,P,H£,CUT0FH,TH,3l 
IF<IPL.E0.3J CALL NIJKBFR(A,P,HE,CUT0F2,TH,33 

A r«l , bS ^ 

B=Cr.5 

HEzC.15 

CALL SYMBOL (A,B,HE,BTIT,TH,6I 
GO TO 100 
6C XS7 = i-.C 
YST=C.O 
YST1=YST 

Call plot<xst,yst,3> 

I X=INTtXX) 

IY=1NT(YY) 

CALL PLOT<XX ,Y$T ,2J 
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DO 7Z 1=1, lY, 2 

YST-VST+l.C 

C*UL PL0T<XX,VST,3) 

CALL PL0T<0.0,YST,2) 

VSTrYST+l.r 

irrvST.GT.YYJ 60 TO TC 
CALL PL0T{0.0,YST,3I 
CALL PL0TtXX,VST,71 
7C CONTINUE 

CALL PL0TtS.C,YSTl,3> 

CALL PL0T{5.D,YY,?J 
DO 75 1 = 1, IX ,2 

xst=x<;t*i.o 

CALL PL0T<XST,YY,3) 

CALL PLOT lXST,DtO,2> 

XST=XST*l.a 

in XST.GT.XX ) GO TO 75 
CALL PL0T(XST,0.0,3> 

CALL PLOT(XST,YY,?> 

75 CCNTIL'UE 

CALL PL0TtC.C,YSTI,3) 

PI0 = 3.1£(157255'*/18D,C 
00 8C 1=1, NP 
IF( JCOHP.LO .0) GO TO 76 
VXrvxrOHCI) 

VY=VYCOHtIl 
VPES=VRECOH (1 ) 

GO TO 77 

76 VX=VXINCtI) 

WY=VYIhC tl ) 

VPES'=VPP f I } 

77 SI2F=VRES7VPERIN 

ifjvx.co.oi vx=.o'’ococcroj 

AN6LE=-S16N(9C,,VX) + ATArj,( VY/VX )/PIO 
xp=«xoFFn »-xpin>/fxEp 

YP=(Y0FF<I)-Y«IN)/0PD 

IF< XP.GT.XX .OR.XP. LT. : . C.OR.YP ,6T .YY.OR . YP.lt GOTO 80 

SJ2:Amini(<) ,/21,«sIZE , .151 

SI22=SI2E-0.5*SI2 

■Xf£ A0 =xp*VX/vpERIh/SI2E#sI22 

yPEAD=YP+VY/VPFRlN/SI 2E*SIZ2 

■CALL 5VH50L «XP,YP.,. 512.2, -16,, ANGLE, -1> 

CALL •'YNS30L f XHEAD, YH£ A0,SI7,2,ArjGLE,-l) 

■1^0 CONTINUE 

call' 5VHEi0L(XX*.15,A. ,0,.2,AA,.C. ,61 
call KUHSER t Xx*1 .25 , A . ,0- 2 , A L , i). , 3 ) 
call SYKS0L(XXa. 15,3.5,C-2,AE,C.,G1 
CALL NUHS-ER f Xx*l • 2 5 , 3 . S , 0. 2 , A a'a A ,'C. , 3 ) 
call symbol f XX* .15,3. , Q .2 , AC , C . ,6 1 
CALL NUMBER IXX*1.?5 ,3 . 3 , 0.2 , EM STOR , 0, , 3 ) 
call SYMB0HXX*.15,2.7,G.2,A0,r .,6) 

CALL NUHPER(XX*1.25,2 .7,0.2,XT£ST,a. , 3) 
call symbol (XX*. 15, 2. 2,0.2, A£,C. ,6) 

CALI NUMBER (XX*1.25,2 .2,D.2,VPFRIN, 0. ,3 ) 
iru .RETURN 
E NO 
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c 

c 

c 

c 


1 

2 

3 

1 

2 

1 

2 

1 

2 

3 

<4 


St'BRODTINE PLTER » N 11 ,NHI ,IS »K1 » 

COKHON /CLPLOT/ XPE N , YPEN , NXS, N Y , IPF N ,XL A PEL t 1C) » YL A BEL« 10 ) 

COHHOJ'' /COORD/ XON ( 7CD ,¥orj < TOO J ,XOFF (200) ,yOFF t 2CC) ,S<700 > , 

SI (700 ) iXTES7,XTE5Tl , X7ES T2 , yCL, YCU , YCL 1, YCL2 , YC U1 
YCU2,XR1,XR2,XI?H,YR1,YR2, YRH.CUTOFl ,CUT0F2,CUT0FH, 
ELVD , ANRt THol ,AP (7DCi) ,AR0FF12Cn) 

COHPOK /CONT/ VC,VSl,V5?,XHCtX«Cl,XHCZ,«DOTC,WDOTCl,WOOTC2, 

TITLE ( 3),VI)gr,ALFA,A,B,C.D,AlC,A2C,A3C,A4C,ASC,All 
A21,A31,Ai(l,A51fA12,A22,A32fA‘»2,AS2,VIC,VJCl,VIC2 
COHKOM /COOT/ NT , NS 1 , NH , NP , T«, NX , KND , ICOMP »K * KXHl 1 ,MXHI2 , NXHI3, 

NST2,NST3,NST7,NPPPt 301 .IRAK < 301 ,KI ,K2 , ICO HP 1 ,IPL , 
IHUP 

COHHOK /SOLl'T/ VBARt70D),VBAROt2CC)tVINC(700),VXINCl200), 

. VYINC(20C) ,RH06(7O0»,R3ORH7C’C».ftO0BOt2CO) , 
VCOHtTCDl ,PBC0TI2DD> ,VRE I2Ln)tVREC0H(2PCl « 

VXCOH ( 2DC) , VYC0H{2D0) , THE TA ( 2 DD) i PS OPT C (7C3 ) . 
PS0PT4 7CC) , CfACH f7C0) tXHACH( 7D'1 1 CPl ( 7C0) tCPC< 7DC ) 


t 


5 


RHOI I7C0I 


THIS SUBROUTINE PLOTS PS /PT AND MACH NUMBER VS 5 

DIMENSION YP<‘I> ,YPD(3 ) .XPLOTISCD) ,YPLOT < BED ) , KKK ( 7 ) . P ( IB > 

KKK(l) = 4 
KFKC2) = 1 
KKKt31 = 2' 

KYKI 41 = 1 
KKKIS) = 1 
KKKI&) = N1 
KKKI7J = Mil 
P(l) =3.0 
P(2» =1C.0 
P(3) =L.L 
P<R) =1,1 
PJS) =1C.0 
P(6» =^.0 
P<7) -1.0 
Ptei =1C.0 

P (9) =L ,L 

PUC»=u.& 

P C1H=D.Q 
P (12)=C.' 

P(13);:C.'3 

P 114 )=9t .G , 

DATA Y0<I>iYD(2) ,YD(3) ,YD{4) / ‘ »P RESSU • , *RE RAT*, *10, PS*,»/PTC * 
1 / 

data YOOll) ,YOO« 2 ) ,yOD( 3 )/ 'LOCAL • , *MA CH N * , * 0 . »/ 

DO 1C 1=1,4 
YLABEL(I) = YOU) 

ID CONTINUE 

XLAPELU) = TITLE(l) 

XLABEM?) = TTTLEU) 

XLABELtS) = T1TLE(3) 

XPtW r O.j 
YPEK = C.C 
I PEN =-3 
NX6=-16 
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NY=20 : 

7F(K1.eo. 2) 60 70 3J 
DO 2C l:i,M 
XPL07II) rSHKHI + I-ll 

.IPUCOHP.rO.^Cj’ YPLOTlIl = RSOPTtNHl+1-1 J 
IFtICOHP.EO.n YPIOKII - 'PSDPfC(NHi + 3-l J - 
PC, CrNTlKUE 

no 3' 

xPLoiim + n = siiis+i-ii . 

IF(IC0MP.EC.''1 ‘YPEO’T(Ni*I> = P-SOP T ( IS + 1 - 1 ) 
IFllCOHP.EO.il YPL0T(»J1*I,) : PSOPTC 1 1S*I -n 
■^r comiouE 
60 TO 35 

•^1 DP 32 I = : ,N]' ■ 

XOLCTUl r SllNHI-I+1 ) 

1 r ( ICOMP .EO .£>» YPLOldl = PSOPT (HHl -I + H 
IF( ICOHP.EO.il YPLOTdl = PSOPTciNHl-I+ll 
^7 CONTIVUE 

CC 33. 1 = 1, Ml 

XPlOT (N l +1 1- = SlINHI*!) 

IFUrOHP.EO.Ll YPLOT(M*ri = PSOPTIHKI + Il 
irilCrHt>.E0.11 YPLOTCKl + I) = P50P7C(NHI*11 
’3 CCMIKUE 

35 CiLL rALPLT(XPLOT,YPLOT,KKK,P) 

IF(K1.E0.21 GO TO 61 
OC <ir I =1,N1 

■ I Ft ICOHP.EO ,5) YPLOTtll = XKACtHtHHI + I-ll 

ir ( IcnHP.EO , 1 1 YPLOTtlJ = CHACHIMHl+I-1) 

•j;. CCNTIWUE 

DO ?: 1= i,tm 

IFt !C'’HP.EO.cJ YPLOTtM*I) : XHACH ( 1 $.*1- 1 1 
IFt IC^ hP-EO .11 YPLOT(nL+II = CHACHt IS+I-11 
50 rOHTl^'UE 
5f TO 6F 
fcl CO 62 1=1 ,N! 

IF nc'‘HP,E-fr. ;l YOL 0 T(n= XKAC«tNHI-I+n 
IF,ncOHP.EO . 1 ) YPL,OT(I)= CPI CP(.NHIri+ 1 ) 

62 CPNTl'.UE 

r<0 63 1=1 , Nil 

jr( ic^hP.EQ . 11 YPLfrT(Nl+I) = XHACMtNHIiU 
IFt ICOKP.EO,. 1 1 YPLOTtNl + I) = CH ACH t.NH J ♦ J ) 
*3 CONTI ''LIE 
65 DO 6 : 1=1,3 

YLAPEMI IfYOOtll 
f' CONTINUE 
NY r 16 
P (7 1 = 2. Cl 

call OALPLTtXPL0T,YPL0T,KKk,Pl 

ROTllPN 

FF-D 



TEST CASE INPIJT AND OUTPUT 


ORIGINAE PAGE IS 
OF POOR QUALTO 



PROGRAM SCmCL 


GE0HETHV ONtV, SClffCLf JtrttASf FRESH OEL S AT START OT EACH BOnV 

" INPUT file rUHP ■ “ ■ - 


P-n OCStE HCp 3A 

■2<n 1.0 fl.c 


OC5H TA yjy 

?.0“ "y 
6 


-l.D ■ -5.0 

S.lA 

zv 


-O.S -5,6 

5t') 

zc 


l.P ■ -2.2 

2*2 

?n 


2.F96 -2.1 

2.1 

2C 


i| . 096" -2Vl~ 

' 2.i 



12.1)09 -3.1 




1 . 6 ■ 
10. 


1- 

, 

36.0 ■ 12 

. PCJ9 " 

* - - 


-3.96T 3 
l*Q 

“1*96^3 

— — — 



12. 

-3.961)3“ 

lOGG. 

' )tV(i ■ ■ 
"3.96U3 
j'ooT'': 

u«C 


2.669 

-3.9605 

__J«766T 

2.669"“ “*■* ■ 

-3.96DT 

“2^ 2“ 

U«fi 


■5*0 

~3,D 

-3.326 

0 • 0~ 

2.096 

•2.27H 

-2.278 

1*0 


12.0t9 

36.0 

■3 1 2fi T'C 

-3.2B70' 

0.0 

0»Q 


r?.0G9* 


2.U96 

‘ im’.d'""" 
-3»2e? 



GtONf IRlr OWLY. SCIPCIE RiLtASt Z-5 FRESH DFLS AT START OF FACH .BODY 

“CASe'OCSRJA 2-0 OrSFF Mno TA 

FLAS INPUT, 1ST HfrORO - FORFOD. 2ND - PirNFH .PLOT , REDO FLAGS 
tlUOQ E 

QCSHIA 2JY UlO 0 0 0 tluO R 0 

MO. ■OF“8001ES s DFLS' = .300 DCLSMX : ,760 ‘ XRI : ,000000 


*•«« hue ********* 


“ ■ FNREEO ■ “ " STPATCHT I INF 

IO.lCU * ’.friliTOftll l.anii9*Pl _ . _ . 

.. ....... j lT.4t03«00 -3.9A0I*(lU 

LAST’ POINT K= 3S.' X= .120Q9+02, Yr - .3«»603*iiUKAPPA= .OODDO ,OY/O)t= ►QCODD , ALPHAS *00000 


*’ " 'CNPECO ’ STPAICHI LINE 

1.000 X l.?sa9-*0l 2.669O*0b . „ 

? ■-j;9i,03400 -3.960 SFc1D " 

(.AST POIM"i"k= '‘66, X= .26690-*01, V= -.'39603+01 .KAPPA= .OOGOO ,OY/OXi .00000 .ALPHAS .OUDDG 
tHRE_Ep= LDPO.Oi: . _ , _ . . _ . . 


FXPOHfUTS SUPERELLTPSE ^ 

T‘~T~~Yilfn ■> Si; On 00'+ DO 2.669O+'n0 O.OOOO O.OOQO 

0 = 2.296 Y -3.9603-*00 -3 ,9603+00 9.0000 D.OUOD 


— ^0.0000 ■■ “ o'.ooon 

-3.3260+00 P'5SS® 


P z ,]76670rO+Cl A = .26690000+01 

Q”= .22963000*01 B s' ■■ ,63929999+00 


XO : .2669(jD0<'«Cil 

YO'; - i3326 CDOC+ 01 OHEG* s“ ".00000000 


— mTfiTCTi'rBir?= 

OEIS IN : .30129 OFLS_s ,29226 _ DELS OUT = 


.□qosB final paces 


.ospoo_. 


LAST POINT XS 85. Xs .tlQOOn , Ys -.33260+111 

ENREEDS irPO.'OD " 

'riTp'o nT n t's^ s iTpe'bTl l"i p se 

P S 2,000 X n.OOOO _ U.ODDO 

^ '"O f" 2 ;too" y ~7tc;ooqd+oo -s;326n+oc> 

P S ■■ ■ .PtiOOOOnO+Ol A'z ,10980000*01 

0 I .20000000+01 B s .209600013 + 01 


KAPPAS -.1896 3t,01^,pYyOX=__-., 9 9999+05 •JlLfHAS _._-^8?999j+ 02 


D.DOOD D.QDOO 2.0960+00 9j0000»0C 

■ rlDQOQ ' ■ 'O.OUOO"' ' '-2 ',27 a 0+00 ■ =^2.2780+00 

X'l s -.U79n0DC+01 

YO s - .2909 COOD + Dl OHFGA_ s . 00000 000 


■ OfilS' '?0868S” DELS = .06689 DFLS OUT = .25072 DSTEST S .00299 FINAL PACES .05185 

LAST POINT K= 109, X " .2n96(T,ni, YS -,2?7RU+L1 .KAPPAS - ,2385 5+00, C1Y20XS .00000 .ALPHAS ,0 0000 

-3, 1 00 X (‘.Of.LlI 2,’)96P*I1 u 1.200 9+01 1.9 800,01 

" y' -7.2780+DD -2.2T6D+PL- -3.2870+00 -3.2870 + 110 

2" ITFRATIONS A = 2. ''7160-03 B s -9. 38299-11? C s 1.E6932-DI 0 r -2.93298*00 

DELS IK s ,25072 DELS s _,24871 OFLS OUT s_ .29871 OSTEST : .00073 

LAST POINT Ks 193; X: ,l?iifl9+U2i YS -. 32876*01 ,KA PP AS .61 6 1 6-0 1 . DY/flXs .9 986 0-U9 . ALPHAS .25703-02 


ORIGINAL PAGE IS 
OF POOR QUALITY 



6E0HCTRV ONLY, SCIRCU Rllf 2-5 FRESH DFLS *T START OF EACH—BODV' 


ChRE£D~ 

1 .000 


STRAIGHT" LIHF 
1 . 2 U 0940 I 
•3.26TO+OD 


3 . 601 ) 0.01 

-3.2flT0.no 


LAST ROIHT H= iTe, x= .36000.02, y- -. 32670.01, «AOPA= .COQOO ,D»/DX= 
»«T»" SKBOUf)'.**..,* — — 

HOB HIRRCHED INTO » CENTFRE’TNE = ~ '.ODO - - . 

INPUT FOR THE COKBTNE PROORAH HT(1)= 367 NTI2): 356 HHUBMNs'lTT MP= I2Q 


.£' 5 ?.'' i _£“' 2 .£PINiIJs • X 


.36000.02 

i352SU«u2’ 

• 34*«99 

9"4 J2 

• 3?99a 

■ ’. 3 P 7 ‘» 7 *{> 2 ” 
»2 <>99 7 ♦02 

• 292 < J 6 ^ Jr " 
•28496407 

“'•2 77J( 5>i>'2 
*2f.9954C^2 
.26299^02 

»2«?<J9 9-» U2 

• 2474 ' 4 «* Q ? 
^23993*U2 

“ • 23243 -»£ J 2 * 
*2?»924Q2 
.21742402 “ 
.2 0991-40? 

~brtriThT^ 

9*19 I 402 
.1 b ¥ 4 ‘ 0 " 40 ^ 
_jl799n*D2 
.‘i723 9'''»0 2"‘" 
*1648940 2 
~.I573^«02 
.14988-»&2 
. 1424140 V ' 
.1361 94U? 

".13lor*&2 

. I?669*h2 
. 123094 ; j 2 ~ 
.12009 4>02 
» 117LG402 
.11406402 
'“.nf 05 40 2" 

. 1 P 6 04 -. D 2 

. insbWo ? ' 

• 1020140? 
. 99000*401 ' 


-.396D3401 
-•396D3«01 
-.396(13401 
■-ti 960 3^01 
-.39603401 
-.59603401 
-.39603*C1 
-.39603401 
-.39603401 
-.3V60‘34fll 
-^39603401 
"-.39603401 
j“^59 6n'«401 
“-T396I **oV 
-.39 6 * 01 

-.396 *.401 
-^396. ’♦01 
-* 3 * 96 '- y 4 D 1 ‘ 
39603 + 01 
"-r396a340T“ 
-.3 96 05401 

'’=TT96lr3rflV" 

j :. 396 _ U 34 P 1 

-T596a3*0r" 

-«39603*ni 

-.3‘96U34D1‘ 

-.3 9603401 

-.3*9603401 

-.39603401 

-.396(134Cf 

-.39605401 

-.39603401 

-.39603401 

“ 139 T 034 D 1 " 

-.39603*01 

-.39603401 

-.39603401 

-•396L3.CU 

-.3»603»01_ 

-♦396DJ+C1 

- *59603401 

-.3960340*1 


'.Gonoo 
.00000 
_. ont > nq _ 
7 Dcib 0 u 
*00000 
*D0D(1Q 

• ociino 
Voodoo 
♦opuno 

. 0 Oil On 

• OOOOCj 
.OOQOO 
.OOoro 
"oooco 

_ j . onc / oo _ 

.oouoa 

*uoooo 

. 00000 “ 

^. 0000 ^ 

".POOOQ 

.nouoo 

_.noonc _ 
.coooo" 
.0(1000 
"ooono"" 

.OOOPO 

.00000 

.00000 

♦OOOQO 

iODIjDQ 

kCmooD 

_,anono_ 

.uroiio 

.CPOOO 

• oAunci 

•onnno 

»Dn(joo 

j^iiQOpo 

.nno*fio 

. 0^000 

•00000 


.00000 

•CODQO 

^rronor^ 

.nODQO 

•nooco 

.oooco 

•nooLD 

■.nooDO 

.noobO 

• dcToo'o' 

• OUOCiO 
•00000 ' 
. ODOUO 

.noooo’ 

.GDCJQO 

• nooc'd 
.nooQo _ 
«OOOuO 

_.OOOOQ 

• ooncio *' 

.OQOon 

"'ioonoQ"’ 

.OOOlpQ 

’"Idoooo"” 

.ODOLiO 

■-rciooi] 

• OO OOD 

• riQoud '" 

.noouo 

■ .ooooo" 
•roooo 

‘.OOOOD ~ 
^ 2^00000 _ 
.ouobd" 
.noouo 
*00000 
.ocinoo 

•nODQO 

.OOPoO 

* 7 nLioon ' 

.roooo 

•noooo 


•00000 

•roooo 

♦onoQo 

•QOOOO" 

4CDQOO 

•onooo 

•cDcno 

• LDCJOO 
•00 OOP 

•onoooT 

• ClOCOO 

** fCncioo 
•LUOCO 
•cocoa' 

_ • 00000 _ 

• oddod 
l.rCODQ 

•oooco" 

_.(,CCOO 

• dnccio" 
_ j_orLnu 

• CCDGO 
_.Lonoo 

« coono'* 
•ooroo 
’'.tocoo 

.LOODD 

. oD'cro 
•{poro 

• ofiDoa 

• CO 000 
•CPOOD ' 

_.oorcp^ 

.coocb 

• rooob, 
fcnoco 
•oopon 

• roocQi 
_.£inDO£J_ 

‘ .Vntnn 

• (,ncoo 
•crcoo 


^•DOoQD 
75043400 
£jS009*0l_ 

• 2 25*13401 
•30017401 
737521401* 

.45026401 

.52530401’' 

.60D 344QI 

.67539401 
.7SC45401 
“ .8254740l“ 
_ .90052401 
' ■.97556401* 
. 1050640 ? 
.Ii2'56*d2 

• 12007402 

.12757+02 
• L3SDfl402 
'.14258402“ 

• 15069402 

.■'fS759402 
_ .16509402 

.17260402“ 

• 18010402 

• 19761402 ’* 

.2026240*2 
•^1012402 
.21759402 
„ ,22381402' 
.2289940? ■ 
* 23331 *02 

• 23^9^02 
.23991402 

• 2 ' I 292402 

• 2 <( S 9^402 
.24895402 

.2549740r 

.25799+02 

*26100+02 


-.36185402 
-.35435402 
-.3 4684402 
-.33934402 
-.3318440? 
— 32433+ 02 
_ -I3l6a3+u2 
-.30932402'" 

-.3 0182402 

-.2'9«;3i4 02 
-•266BJ402 
”-.27931402*** 
-.27180402 
-.2643040? “ 
-.2S6794Q2_ 
-*24929*02 
-^2*il784t? 
’■-•23420702 " 
-•22670402 
■*-72 19274 02“ 
-.2117740? 
-.2d,4264d? 
-.1967640? 
-.ffl9254’b?"“ 
_- jl 8 l 754 C ? 
-.174*25402*’ 
-.1 66 74 4Q2_ 
-.‘15924402 • 
.•♦151734C2 
-.14427402 ’ 
, -. 1 3805402 
-.13266402 
-.128S4+02_ 
‘ -• '124 94"4 02 
-.12194402 
-.U893402 
-.11592402 
-.1129U402 
.^1 0989+02 
’ - . 1*06 814 02 
-•1 0387+U? 
-«1008S4p2 * 


•OQODO 
.750M340D 
_.75C4S4O0 
;750434p5 
.75043400 
.75043400* 
.75oif34no 
• 75C43«00' 
.75043400 
•750*43*00' 
.75C434PD 
;7S0434D(} 
_^ 7 SC 434 t )0 ^ 
• 75 d 43400 
.75043*00 
.7**50934 00“" 
.75043*00 
•75043*00 
•75043+00 
■“;7SC45+PD 
_.7 5 043-400 
’ .75'043+00"' 
_.75C43400 
.750434 00'** 

•T5C4340Q 
■ .*75043400 
_2,7 5C4 34P0 
.7 504 34 00’" 
.75043+00 
^74650+00’ 

, .6220S+P0 
♦5 1840400 
_ j 4 ' 3200+00 
• 36000400 **" 
•30000400 
• 30129 + 0 D 
• 30129+00 
• 30129+00 
^^30129+nfl 
T 3 C 12 “ 9400 ’‘ 

,30129400 

.30129+00 


244 



(jEOMfTRY ONitVYciRCU RELFA^E DEL S’VfSTART OF EACH BOOV 


■rr 


.9^967**jl 

-.396D3+D1 

rooooD 

.00000 

• cddqo 

•26401*02 

-.978 40*01 

.30129*00 i 

<14 


*9297*M01 

-.39605*01 

,00000 

•noooD 

.ICODO 

.26703*02 

-.94827*01 

.30129*00 

45 


.69961*01 

-.59603*01 

.00000 

.noooo 

.cooco 

•27DD4*D2 

-.91614*01 

>3D1Z7*00 1 

46 


4669494U1 

-.396C3+01 

•OCOOO 

.00000 

.rocco 

.27305*02 

-.88801*01 

♦30129*00 

4T ■ 


«63935«01 

-.39605*01 

‘ ‘ionoou " 

.00001) " 

.LUUOQ 

.27606*02 

-.85789*01 

.30129*00 ‘ , 

4$ 


• 6{I9?3*C1 

-.39605*01 

.00000 

•noooo 

•ooona 

.27908*02 

-.8Z776.01 

•3C129+DQ 

49 


,’T7909<01 

-.39603*01 

/flonoo 

.00000 

•coooo 

.28209*02''’ 

'-:?9763*01 

>](nz9«iia 

su 


•74896«D1 

-.39605*01 

.00000 

.ODODO 

. JDOOO 

.28610*02 

-.76750*01 

.30129*00 

“ ■ 51~ 


71SB4+01" 

*‘“'-“:39603*01 

* .00000 

'•ooruo 

.CDOOB ■ 

.28812402 

-.73737*01 

♦30129*00 ; 

52 


•69671«L1 

-.39605*01 

.onono 

•roDoo 

• LODOO 

•29115402 

-.70724*01 

.3C129+00 

S3 “ 


".“6565 8 401 ’ 

“ -.39603*01 ‘ 

'.00000 

•nnooo 

‘♦Cn’GDO ’ ' 

•294 14*02 

67711*01 

•30129*00 i 

54 


•626454C1 

-.59605*01 

.00000 

.HOC CO 

•ODcon 

•29716*02 

-.64698*01 

•30129*00 

55 .' 


“75'5es?<01 

-.'39fOS*61 

.ilOOOfl 

•DODQO 

;docoo’ 

.'30017*02' 

''-:6l6 85*01 ■ 

.30129*00 

56 


•56619*01 

-.59605t01 

.noooo 

.noooo 

.cnooo 

.30518*02 

-.58672*01 

.30129*00 ] 

57 


~:s3eo6'>ci 

-.39603*01 

•onoDo 

, noooo 

•coooo 

>306 19*02 

->55660*01 

.30129*00 

Stf 


•50793*01 

-.39603+01 

•00000 

• OOOOQ 

• LClODO 

.30921*02 

->5Z617*01 

>3ClZ9«Da 

' 59 


.4778d'tDl 

-.39603*01 

•oonno 

. 000 UO 

, COODO 

>31ZZ2*02 

->‘I963'**C1 

>3t)!Z9»ffl 

66 


.44767*01 

-.39603*01 

.COOaCi 

« noooo 

. CBODO 

•31523*02 

-><I66Z1*61 

.3CtZ9*0Q 1 

61 


.■ll7'5S«DI 

396*(l3*iri 

• onooQ 

• OUDOO 

• DPODO 

•31825*02 

-,436Ca*01 

•30129*00 ' 

62 


.38742*01 

-.39603*01 

•oonoo 

•ODODO 

•cnoco 

.32126*02 

-.40595*01 

•30129*00 1 

63 


•35729*01 

-.39603*01 

•noooo 

•noouQ 

•cnooo 

32427*02 

-•37582*01 

•30129*00 i 

64 


•32716*01 

-.39603*01 

. DOOOO 

• DOOOO 

. oooco 

•32728*02 

-.34569*01 

>3C129«00 ! 

’6s” 

" 

.'297d3'-»UI ' 

““"-.39603*01 

' .DODOO 

■ .OQODO 

" .r.OOflO"* 33030.02 

-•31556*01 " 

• 3C129*00 " * - - * 

66 


• 26690*01 

-.'39603*01 

• 99999 *115 

. OUQOO 

• 00000 

.35331*02 

-•28543*01 

.30129*00 

67 



J98i6*01 

-.9732’? -01 

-•28761-01 

-•1647'4*01 

.35561*02 

-•26242*01 

.23017*00 

6a 


.22203*01 

-.39481*01 

-.87852-01 

-.48804-01 

-.27941*01 

•33780*02 

-.24055*01 

.21871*00 

~69"~ 


■"•20129+cr 

""-.'39360 + Cr " 

-.86760-01 

-.66920-01 

-.3826S*ar’ “ 

•33968*02' 

' -.21977*01" 

;20780*00’ ' ‘ 

7U 


• 18160*01 

-.39? 12*01 

-.89803-01 

-.84391 -01 

-.48238*01 

•34185*02 

-.20002*01' 

.19744*00 

71 


• 1629 2*01 

-.3903R*D1 

-.96(159-01 

10192*00 

-.58 196*01 

.34373*02 

-.10l26*ul 

.18760*00 

72 


•14520*01 

-.36841*01 

-.in6S3*on 

12DQS*00 

-.68457*01 

•34551*02 

-.16344*01 

•17825*00 

73 


. 1284 1<Q1 

-.f86'24*01 

-.fffl77*CiU 

13929*00 


•34720*02 

-•1465(3*01 

•16937*00 

74 


•11249*01 

-.38386*01 

-.13667*00 

16022*00 

91027*01 

•34861*02 

-.13040*01 

•16095*00 

~ys 


.97412*08 

-,33127*01 

-.16109*00 

18355 *00 

-.10401*02 

•35034*02 

-.11511*01 

’■>>5296*00 I 

76 


«R^145*t)D 

37847*01 

-♦ 19479*00 

-.21027+00 

-.lia7i4«D2 

♦351$0*02 

-.10057*01 

.14539*00 \ 

77“' 


,69^41*00" 

-1I37S43+DI 

'-♦24254+OD 

-.24180*00 

-.15593*02 

. 35 31«*OZ' 

-^86747*00 

"".138Z3'*00 i 

78 


•56937*00 

-.37212*01 

-.31277*00 

-.28042+O0 

-.1S66S+02 

.35449*02 

-.73599*00 

.13147*00 

79 


.s^viTVC'iT' 

-.j'6e48*l]'I 

-r4^»T^♦00 

-.■^3ooj+oo 

1826h*02 

.JSTT'HOZ 

->610§S*"q8 

>1251S'*00 i 

96 


. 33744*00 

-.36443*01 

-.60257*00 

39603 *CU 

-.21704*02 

.35694*02 

-.49155*00 

•11930+0D 

81 


.2 33lV*ufl ^3S"79*C1 

"-."9 3469*OC 

-.50087+00 " 

26605*02' 

“•358 08*02 ’ 

' -.37742*00 

11412*00 

»2 


•14096*U0 

-.35446*01 

-,iS4ai+Lii 

-.67616*00 

-.34065*02 

.35914*02 

-.27095*00 

• 10647*00 

93 


.63937-01 

-.34806*01 

-.30351*01 

10661*01 


.36015*02 

-.17076*00 

•1C020+00 

94 


•16302-01 

-.3«104*0l 

- i4997u*01 


-.66489*02 

,36099*02 

->8S« 35-01 

>aHaz3-Di : 

95 


icrouo 

-.3326D+01 

-.19064*01 

.99900+03 

.90000*02 

.36185*0? 

•oooco 

.65934-01 

86 


•64698-C? 

-.32437*01 

-.16566*01 

.63440*01 

.81042*02 

• 36268*02 

•82596-Ll 

♦82596-01 

"97 


• 244 06-CjI 

-.31665*01 

-*17255*0! 

. 32477*01 

.72866*02 

•36347*02 

•161 T8+C0 

.79179-01 

98 


.srsn-iii 

-.3u‘>73tt!l 

-.15620*01 

•?236!*D1 

.659(15*02 

.36421*02 

•23576*00 

.73988-01 

99 


.824 91 -LI 

-.3034?*01 

-.13964*01 

.17291*01 

, 5.958*02 

♦36491*02 

♦ 30590*00 

♦70138-01 

90 


.i2358*i:a 

-.29715*01 

-11225T+CH 

.13908*01 

• 59zfli)*D2 

.36667*02 

♦38147*00 

.75566-01 

91 


. 17420*0 1> 

-.29ff7T*ni 

-1 106Zj»01 

.11486*01 

•46956*02 

.36648*02 

♦46288*00 

♦81413-01 

92 


.23407«l'U 

-.25442*01 

-.913^4*00 

.96575*00 

.44002*02 

•36736*02 

♦5S059+CD 

.87711-01 

93 


;3nz79*li0 

-.27834*01 

-.76751*00 

.82623*00 

.39564*02 

•36827*02 

♦64187*00 

.91276-01 

94 


• 38147*C[) 

-.27732+01 

-.67846*00 

.71105*00 

.35414*02 

.36926*02 

.74097*60 

♦99C9T-01 

95 


.47H3+00 

-.26640*01 

-.5(1600*00 

.61362+CO 
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-.i2265*oi 

-•1469I*(10 

-•24471+02 

.37276«D2 

-♦1090S4Q1 

-•13598*00 

-.37887*0? 

.37150*02 

-•96469*C0 

-.12580+00 

31538*02 

.37034*02 

-•84839*C6 

-.1 1630* AD 

-.36818*02 

•36926^02 

-•74a97*00 

-.10742*00 

-.5«56i|*ti2 

.36627*02 

-..64187*00 

-.991197-01 

-•*(4002*02 

.36736*02 

-.55059*00 

-.91278-01 

-•48*956402 

.36648*02 

-.116288*60 

-.87713-01 

-*54284*02 

•36567*02 

-•36147*00 

-•81413-01 


248 
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~'T!i249i-„r' - 

■.3LI34'9 + 0L 

.13984*01 

‘■-.17291*01 “ 

-.59958+07 

' .36991*02 

-.30590+ 00 

-•74566-01 




.30'>73*01 

• I56?l,4bl 

-.22361+01 

-*65905+02 

•36471+02 

-.23576+00 

-•7D136-01 


27l 

•2440b>Ll 

.31b65«Dl 

.172SS401 

-•32477+01 

-.7?d86+D2 

•36347+02 

-.16176*(i0 

-.73986-01 


271 

.64698-02 

,32437*01 

.18566401 

-.63440401 

-•61C42+02 

•36266+02 

-.62596-01 

-.7 9179-01 


272* 

•DfOOD 

■.33?6n*01 

.19084+01 

-.999U0405 

-.90000+02 

•36185+02 

•OOUCQ 

-.02590-01 


273 

.16342-01 

.34104401 

.g4»7(i+Ul 

•22966+01 

•66489+02 

•36099+02_ 

_ _i65934-0l 

-•85934-01 


' 274 

•b 3^3^-di 

•34806401 

•3D351401 

.10661+01 

.96830*02 

•36015+UZ 

.17076+ OO 

.84 B2 3 01 


275 

•14J96«CC 

•3S446401 

•15981401 

.67616+00 

•34065+02 

•35914+02 

•27095+00 

-410020*00 


■ ' ' 27b 

.233U+0C' 

.S59794CS 

•93469«UD 

.50G874CO 

.26605*02 

.358CS+D2 

.37792*(lO ■ 

-.1 0647+00 


277 

.33744*L0 

,3(>443*P1 

.fcn?57*JO 

•39803400 

.21704+02 

•3S694+02 

• 49155+ I/O 

-.1 1412+00 


’ ” “ “ 27a ■' 

'' ■ .<<i|»63‘0C 

';3&«4A*D1 

.42159+on " 

.33003+00 

.1S266*(I2 

.35578*02 

.61065*00 

-.1 1930+C0 


279 

• 56937<»^J0 

.37212*0l 

.31?77+on 

•28042+00 

.15665 + 02 _ 

.35449+02^ 

*7 35 99+ or _ 

-.12515+00 


.. - 


.3754 5*01 

•242S44UC 

•24180+00 

• 1 3b93 + U2 

•35318+02 

•867474’CO 



261 

♦a3i45*wf: 

,37S47*fil 

.19479+00 

.21027+00 

•11874402 

.35180+02 

.10057+ Cl 

-.1 3823+00 


282' “ 

‘ l974l2-*-flC 

•38127*Pl 

.16109+01 

.18355+00 

.10601*02 

.35D39+02 

.11611*01 

-.14539*00 


263 

• 1 12494-01 

.3a3S6*Qt 

.13667+00 

•16022+00 

.91027+01 

•34061+02 

• 1304(1*01 

-.15296+00 


" *” " 284 

.1284 I'+Ol 

• 38624 + 01 

.11872*00 

♦15929+00 

.79299+01 

.34720+02 

•1465U+01 

-•16C9S+00 


28b 

.14b2G«Ul 

.38841401 

.10553+00 

« 1 2D05+nO 

•68457+01 

.39551*02 

•16344+01 

-.16937+00 


286 

«162924>Ua 

‘’.39038+01 

^96*59-01 ■ .10192*00 

.58196*01 

.34373*02 

.18126+11 

-.17025+00 


28T 

•18L6t»01 

•39212+01 

•89fl03«01 

.84391-01 

.96238*01 

.36165*02 

,20002+01 

-.18760+00 


’ * ‘ 28S“" 

" .201294^01 

.39360+01 

•86760>0i 

.66920-01 

.38265*01 

.33988*02 

.21977*01 

-.1 9744+00 


289 

.27203*01 

.394814D1 

.67352-01 

.48804 -Cl 

.2798 1*01 

.33780+02 

.24055*01 

-.20780+00 


’ 290“ 

• 243694>01 

•39566+01 

.97327-01 

.2876 1-01 

, 1697'I*U1 

.33561+02 

.26262*01 

-.21671 + 00 


291 

• 2669 0-*01 

.39603+01 

- .99999*05 

•QOOOO 

•coooo 

.33331*02 

•28543*C1 

-,23C17+0a 


t f9i 

TS^TOTi-CI 

.39Kb3*ol" 

.onooiT 

■" 700000 ** 

""“.C.ODGO" • 33050+02 

.31556*01 

-.50129+00 


29 5 

.3271 b«01 

•39603+01 

.14 none 

.QQOOn 

•OOCOQ 

.32728+02 

,34569*01 

-.10129*00 

CO 

29H' 

" .35729+02’ ' 

.39603+ 01 

* .ODOOO 

.fVOOOO 

•cccoo 

.32927*02 

•37582*01 

-.30129*00 


295 

• 387424>u1 

•396D3+D1 

♦nnDDD 

. <^8000 

.oncco 

.32126+02 

*4 0595+01 

-.30129*00 


29b 

" ‘.'41755*01 

•39603+01 

.OCJOOO 

• ocuon" 

•QOOOO 

•31625*02 

• 43608*01 

-. 30129.00 


297 

.44767+Ul 

.39603*01 

.OODOO 

•CQOOQ 

•00000 

.31523+02 

•46621*01 

-.30129*00 


J->6 

*4 776 0 ♦Cl 

■^39603401" 

.oonob 

*'*.00000 

•600C0 

.31222*02 

.49634*61 

-.30129*00 


299 

i50793+0a 

.39603401 

.□DODO 

.OQCCIO 

• oncRo 

•30921*02 

,52647*01 

-.30129-0O 


‘ 300 ’ 

' 4S3B06+01 

.39603+01 

.nrjoo 

.00060 

•uoooo 

•30619*02 

•5566C«C1 

-.511129*00 


301 

i66819*03 

.395B3*-01 

.onooo 

. nonoo 

•oocco 

,30318*02 

.58672*01 

-.50129*00 


““ “ 3D2 ' 

' ;59832*01 

.39603+01 

.Qnono 

.ooouo 

* .ODGOO 

.30017*02 

.61666*01 

-.30129*00 


3 03 

»628454-ri 

.39603*-Dl 

.9PJ00 

•nooOQ 

• nootin 

,29716*02 

•64698*01 

-♦50129*00 


-"-3IJ4- 

~.65a6a*u.r 

~j9fin3*0l' 

rjnopo' ■ " 

.fODOO**’ " 

.cocoo 

,29414*02 

■^.6771 1*01 

-.50129*00 - 


3D& 

•6BS7 1 ‘J 1 

•39603+01 

•onoou 

.00000 

• QOOOO 

.29115*02 

.70724*01 

-.50129*00 

306 ““ 

" ‘.71ft84-fOJ" ■" 

•39603401 

* .00000 

•noooo 

.orooQ 

.26612*02 

.73737*01 

-.30129*00 

to 

307 

•7469&«01 

.39605*01 

.^lOGOO 

•OQDwD 

.cporo 

•28510*02 

•7675C*01 

-•3i:i29*oo 


3(ib 

*779r9«iJl 

;396D3+ni 

.'oocno 

• <30DGQ 

ibODOO 

.28209*02 

,7976j*0l 

-.30129*00 

to o 

• 3 00 

♦ 8D922*01 

♦39603+01 

•uonGO 

•OOGCO 

•OCDQO 

.27908*02 

•82776*01 

-.50129*00 

O to 

• ' “ “JfB 

:8 393S*Df 

“3960’3f0r 

IiUiono 

lOQOOO 

. uO QQ 0 

,27606*02 

•85789*01 

-.30129*00 

o ” 

311 

«86948«U 

.19603+03 

.tlfOOO 

.''QDOn 

ibOOOO 

.273&5*02 

.06601*01 

-•50129*00 


' "312 

;fi9961+01 

.39603401 

.00000 

.noQoo 

•CODOO 

•270C4+Q2 

•9iei4+V) 

-.30 129*00 


313 

♦ 9297 4H;! 

•39603401 

♦oiiont) 

•noDoo 

•cnono 

•267f 3*02 

.9462,7*01 

-,50129+CO 


" 314 

*9598 7 901 

♦39603401 

• upapi) 

. noooo 

.Loenu 

.26401*02 

.97640+01 

*-,30129*00 


31b 

.99 300 *01 

.39603401 

.UOflDD' 

•nooon 

•cnooo 

.261ba*n2 

•icoas+o? 

-.30129+00 


31b 

““ .lt.201*02'" '■ 

■ 739603401 

* itjoono 

•oonoo 

•uccoo 

.25799+02 

•10387+02 

-.30129*00 

b> , 

317 

*ir5C3*il2 

.39603401 

♦ OntJOD 

.noacn 

■uncoo 

•25497+02 

•10688*02 

-.50129*00 i 


^ 31H 

*in8U44li2 

.1951*3*01 

•OOOOD 

.□ODOO 

•LOCOD 

,25196*02 

•10989+02 

-*3(J129+(!0 j 

§ to 

319 

.XUl^54ti2 

.396tt3*01 

.00000 

.nDnOO 

•coooo 

.24895*02 

.I129C+0? 

-.30129+00 j 


320 

• I!4ii6«u2 

.396113401 

.onono 

.r/cnoo 

•cnono 

.24594*02 

.11592*02 

-.30129*00 1 

« to 

321 

.in&H-*-? 

.396n34Pl 

• *i:ctoD 

. ''OObO 

♦curoo 

.24292+02 

•11693+02 

-•3C129*00 

^ CO 

‘ 322 *“ 

*l?of,94^2 

l396U3*ni 

.UODOO 

• rtJCuO 

• L-DCOO 

. 23991*02 

.121»9*02 

-.30129*00 


323 

4123J9402 

.39603+(/l 

.oonou 

•noo JO 

•OnOQO 

.23691+02 


-.3COOD*BD 


224 

■ .1P669 4J2 

*39603401 

.ucnoD 

♦roobo 

• ( nooci 

.23331+02 

.12654*02 

-.36 000*00 




CeOHETRY 6hLV, SCIBCLE RTLEA'iE 2-S FBESlt DELS «T START OF EACH ‘BODY 


Z2b 

ll31Cl462 

*3960340i 

•onooG"" 

•OODUO 

•onoon 

•22699*02 

'71328S4U2 

-.43200*00' '* ' 

Z2b 

.136|B*u2 

•396115*01 

.O^flDU 

•ounco 

•DOrOD 

•22581*02 

.n8as*02 

-.51840*00 ' 

127 

•142414C2 

.39603*01 

•noono 

•oooao 

•ooooo 

.21759*02 

.J<I827*02 

-.62208*00 

32A 

•149H84J2 

.39603*01 

•nnuoo 

« OOOuO 

.OBDOO 

•21012*02 

•15173*02 

-*7465 0*00 

329 

•1S7384U2 

.39601*01 

.00000 

•ooooo 

•OOOOO 

• ?0?fc2-*d2 

.J5928AC2 

-.75043*00 

33(« 

« 1646940? 

.39605*01 

•00000 

.nDDDO 

•oDCon 

•19511*02 

•16674*U2 

-•75043*00 

331 

.i7239<p2 

.39605*01 

.OCQOQ 

•ouooo 

•ooooo 

.18761*02 

•17425*02 

-.75C43+00 

332 

•17990402 

•39605*01 

•o^aoQ 

•nCQDO 

•uncoo 

•18010*02 

•18175*02 

-•75043*00 

333 

« 1S7404J2 

.39605*01 

.noona 

• ODOLiO 

•DOUOo 

•17260*02 

•18925*02 

-•7S043*G0 : 

334 

• 19491402 *39605401 

•opnoo 

.>7000D 

•OOOOG 

•16509*02 

•19676*02 

-•75C43*nO 

33ik 

•20241402 

.39605*01 

•ODOOO 

•OOOOO 

•ODCDQ 

.15759*02 

.20828*07 

-•75C43*nO * 

33& 

•2n99i *02 

.39605*01 

. .ODOdo 

.00000 

•coooo 

.l5riD9+02 

•21177*02 

-•7SC4340D : 

337 

*21742402 

.396ni*Dl 

.00000 

• ■IDpuO 

•DPOOO 

•14256*02 

.21927*02 

-•75043*00 " ' . 

33d 

•224924J2 

,39605*01 

• DPOCII) 

•OOOOO 

* .00000 

•13504*02 

•2?678*(i2 

-.75043*00 ‘ 

33'9 

«232434Q2 

.39605+01 

•oncoo 

• oooco 

^ .00000 

•12757*02 

•23426*02 

-*75043*P0 

3<fl) 

.2399340? 

.39605*01 

♦oocoo 

•QDOOO 

'•DPcao 

• 12007-»n2 

•24176*02 

-•75043*00 ; 

301 

*24744«3? 

.39603*01 

•ooooo 

.loodn 

•uoono 

•11256*02 

•24929*02 

-.75043*00 t 

54Z 

•25494*02 

.39603*01 

•noono 

•OOOQO 

•ooooo 

•10506*02 

.75679*07 

-*75C43*00 

3tl3 

,262Al(4C? 

.396‘05*0i 

.QOCiOO 

•OOOOO 

•OOOOO 

• 97S56*0i'""“ 

• 2643D*U2 

"-'.75043*00 

344 

.26B9S«D2 

•59605*0l 

•dpuno 

•OOOOO 

•ODOOQ 

•90052*01 

• 27183*0? 

-,75C43*O0 

34S 

•27745402 

.3Y6DJ*tl 

• QOQCIO ' 

•noooo 

•OOOOO 

•82597*01 

•27931*02 ' 

-.75043*00 

346 

•28496402 

•39645*01 

•nnooo 

•QUODO 

■DOCOO 

.750‘«3-»01 

•28681*02 

-♦75043*00 

347 

• 292464U2 

•3»6D3t01 

•OOUOQ 

4 OOOOo 

•00 000 

•67539*01 

• 29431402 

-.75C43*D0 ' ■ * ■»' 

3<ia 

.29997*02 

.39603*01 

• riDDno 

•noooo 

•OQOOO 

•60034*01 

•30182*02 

-.75C4 3*no 


nr>Ti)Y*(/2 

•39603*01 

•□0000 

•nODOG 

•ODOOQ 

.52550*01 

•30932*62 

-.75043*00 

350 

.31497402 

.39603*01 

.00000 

.BBddD 

•onooo 

•45026*01 

•31683*02 

-•75C43*na 

351 

• J?24e*02 

.396Ds»ni 

•OOQOO 

.noooo 

•COOOQ 

“* •57521*01 

“^32433*02 * 

-•75C43*t?D ' J 

342 

•32998+U2 

•39605*01 

.00000 

•OQQUO 

•CCDOO 

•30017*01 

.37188*02 

-•75043*00 1 

SSJ" 

.31749*02 

<396P3«01 

•UOOOG 

•ooooo 

• GfOCOO 

.22513-iOi 

•33934*02 

■-•75043*00 ' 1 

344 

•34499*02 

.39605*01 

•ooooo 

•nooDO 

•OOGDO 

.15039*01 

.3 4684*02 

-•75043*00 ( 

355 

, 35250*02 

.39603*01 

•onood 

•ODODO 

•COOOQ 

.TSOBjABO 

.3 54 35*02 

-•75043*00 1 

3S6 

*36000402 

^ _ .39605*0^ 

^.QO_DOQ 

jOoocn_,_ 

.op 000 

*D000Q 

•36185*02 

-•75043*00 1 

BODY 3 Co-OHBINATES - X 

V 







357 

•36D00*C2 

-.32670*01 






t 

3Se 

•36U00402 

-.27613*01 




• 


1 

359 

•36000*02 

-.22756*01 







36(J 

•3&OOQ«02 

-.17699*0f 

-A_ 





j 

361 

.36000*02 

-.12642+0I 







362 

•36000*02 

-.V5SS44D0 



■“ * * “ 



i 

363 

.3Ar.OO«C2 

-.25265*00 






1 

364 

• 36ub0*02 

.25765+00 






{ 

365 

• 36DilO*U2 

•75RS4*na 






' 

Zbb"^ 

• 36000*02' 

•126H2+01 * 


’*■ • • — 


■ •*“ 

— -■* 

j 

367 

.36000*02 

.17699*01 






i 

368 

• 36n004A.2 

.22756*01” 



" * ■ 


“ » r .. 


369 

. 36000 *0 2 

♦27615*01 







370 

• 36000*02 

•32$70*D1 







XRAK YLO 

YHI 

NDY 


• , 

. . 

. . 


“^iacco+01 

._-.5nooo4iii 

•50006*01 

70 


• 



J 

-•SQOCD-^QO 

-.50C00431 

• 5not>Cl40l 

20 


’ 


" * * 

■■ “ ~ i 

-lonrfjt iji 

-• ??uoU*j1 

.7700D401 

20 






•2096040) 

-.?1joO*J1 

.2100J*Q1 

20 






• 4C96IJ4,j) 

-.21000*01 

.2)00C*Qt 

?0 






.126C«''U; 

-.3luuQ*gi 

•31000*01 

20 
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ORIGINAL PA6B « 
OP POOR CfUALIW 




POILKIIAl flOU 


7-n 


program 

t 2SV (!£L'e»se D-l-l Finw FIELCl PLOTS 


UNIRANSFOPHFU COOFTOTNAIE DATA FOR 600V ID 


xm Y(ii 


] 

jfv.Qcrooo 


. 3 

H 
5 
£ 

. .,7 



9 

10 

n 

u 

13 

iu 

1£> 

\b 

17 

18 
19 

35fi49^7c'‘ 
54 449914Q 

32»9982fi0 
'2.247R5D 
X .497420 . 
•C *746990 * 
-9.996S60 
■■9.246150 
. ft*49570l) 
>7*745280 
, . 6.994R50 
r 6 *2 44 420 
. S. 493990 
24 •745560 
25.995130 
25.2427U0 
22 .4 92770 

““3*96n3f'U 

-3,960300 

-3.960300 

-3.960300 

-3.960300 

-3.96fr5no 

-3,960300 

-3.9603110 

-3.960300 

-3.960300 

-3.960100 

-3,960300 

-5.960300 
-3 .960300 
-3,960300 
-3.960300 
“3.960300 
'.-3.960300 

20 
, ?.i 

22 

P 23 

24 

25 

21.741840 
20. 991410 
20 .240980 ' 
19.49iA»‘.50 
18 4740120 
17 .989690 

. -3,960300“" 

-3.QAP500 
-3,960500 
_ -3.960300 
-3.960300 
_-3. 960300 

28 
27 
2fl ’ 
?9 

' “ifj" 

17 .239260 
16' .488830 
15 >738400 
14 .9879SU 
14 *24 IMfiO ' 
.1.3 *6 19400 

"’-37960300 
-3,960300 
-3,960300 
-3.960300 
-3*'96n3CHl 
-3 , 960380 

?2 

i3,i6ioo6‘ 

-3.960300 

. ■«5 

12 .669^00 

-3,960300 

34 

12.5C9nOD 

-3.960300 

■35 

l2iUC9rup 

-3.960300 

18 

11 *707710 

-3.960300 

IT 

12 .4C6420 

-s,96n3ria 

18 ^ • 

*Ii7lC413fi 

-3.960300*' 

19 

10 «H(;584d 

-5.960307 

90 

ic.sca^so 

“5.960300 


10.2L126D 

-3.960300 

42 

9 .899970 

-3,960300 

. *»3 

9 .5986611 

-3.96175-10 

’*iq 

9.29759U 

-3.960300 

* 45 

B .996100 

“3,960300 

46 

8 .694810 

-3.96O3C0 

47 

B .593'i20 

-3,96030(1 

48 

0 .692230 

-3.960300 

£19 

,? »79'94»^ __ _ 

. -7.9603rO 

^0- 

7.48965T 

-3.9bC3no 


1. 

2-0 PCSEE 


1 

X(l) 

Vfll 


7.18)1360 

-3.9^0300 

f 2 

6.087070 

-3.96Q30U 

63 

6,585760 < 

-3,»693DP 

54 

6 .284460 

-3.96C3D0 

55 

5 *983190 

-3.V60300 

56 

S. 60 1900 

-P.V60300 

. *»7 

5.38C610 

^-■J. 7 60300 

58 

5,079320 

-3,960300 

59 

4 .778030 

-3.76)3300 

60 

4 *476740 

-5,960300 

61 

4 ,175450 

-3.960300 

6? 

3 *674160 

-3.960500 


5.S7287D 

-J, 960300 

64 

5.271580 

“3.96C300 

r 65 

2.970290 

-3.9603CC 

66 
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-3.26S1SO 
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147 
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150 
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l5l 

15*7 364 CO 

3.9603C0 
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3.87416P 

3.96 03PU 
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• 
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n» 
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21*741840 

3*960300 

Gi 

l?l 
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3.960300 
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CO 
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123 
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6.505760 

3,960300 
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169 
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173 
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3.960300 
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9,297390 ‘ 

3 .960300 
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• 
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3.960300. 

/ 

138 

in.201260 

3 .960300 

177 

35.249S70 

3.960300 

■ 

... , 1 3 » 

10*5C2*;50 

3.96C300 

176 

36*00001)0 

St96C3G0 

- 



POTENTIAL FION - - J-P , 23V RELEASE O-l-L FLOW FIFUD PLOTS 

fLCHFNT fOORDINAlE OATA FOP BODY ID = 2t 


1 

36.-|jDq(U 


35.628950" " 

2 

3S.?S79ra 


34.Sa68‘!) 

1 

. 34, 5158, j 


34,144755 

0 

„ 33. 773 7 IJ 


33,4j266U 

.. . 

.. 33 .P 3 I 6 I 1 I 


32 .668 5 65 

. ... t 

... 32.2S952C 


31 .91847U 

"> 

31.S4T42C 


31 .176375 

fl 

_ 30.805335 


38.434280 


2 3P.Ofr3 2JE 

zo -eozips’ 

- n 27. 32 I inf. 

2fl.950D?6“ 

— n 28.579040 

28 r2t)7 9 55" 

_12: 27_.flIfc9SB_ 

27.4659tG 

1 1 27.09485 0 

26.723810 

19 26.3S27SU 

25. 98 17 CS" 

_JS 25 ,6106 60 

25^2396 ID ■ 

-1* 2 4.86 8560 

24 .4975 is" 

..17_ 24.126 4 70 

23;75S420 ' 

.1* 23.38437C 

23.013325 

..ii 27.6422BL 

22.'27i'23o“ 
, ^ 1 21.9CDLII0 

“ 21.529135 
?> . 21.1S809L 

20.787046 

.22. 20.41S99„ 

20.844945' 

23 19.6739Fw 
19.302856 

24 18.931810 
18.S6C7 50 

£.L. 18.1897(0 


3,287000 

3.287000 ' 
. 3,287008 

3.287000 
■ . 3.287000. 

3.287000 
3. 28700 n_ 

3.287000 
. 3.287000 

3.287008 

3,2870QC 

3.287000 

3.2 87000 

3.287000 

3.287000 

3.287000 

.3,287000 

3.287000 " 
3.28 7800 
3.287'DO'n 
3«287non 

3;2«Trrao 



3#2e70t)0'" 

3^ 26 7 n 

3*2e>ODO 

3i2B7f>aO . 

. 3.287D00^“ 

3.287BOO 

3.2e7oorr 

3«2fl7n0f3 

3*2870Dn"” 

3.287000 

3.267000 “ 

3.287GO? 

3l287nOO 

3u2a7rQo 

37287000 
3.287000 
’*3.2fl70Of> . 
3*287nOO 
3.267600 
, 3.207000 

3.2b700o’ 
3.2ft7non 
3.207001) 
3*287000 
5«2a7oan 
3*2a7!'0n 


*7^2100 
WMZIOD 
• 7Ij20^>0 
™.“7ti210b"' 
. 7*42090 
.7*42100 
77*42090"" 
.‘7*i2inO 
‘.702090 
“‘.TilZloor 

‘"792090 ■ 
.702iOD" 
‘“'742l0b~ 
.7(42090 
‘ .7<42iOO ' 
'T74 j2'd'90~“ 
'.702100 - 
.702090 

‘770"2iob* ‘ 

• 70209 0 
.702100 
.702090 
.702100 
.702100 


.742100 
•702100 
.70 2090 
‘"7702100 
.70 21490 
.702100. 
" 7 V 0 2C9 0 " 
.742100 
'”.74 209 0 

""rTiTiriTQ" 

‘ .'70 209 0 * 
*T742100" 
”702100 " 

7T4 2>9 0 

”^702100 ■ 
“702090”' 
*".702100 
.702090 

“ 702100 " ' 

.702f'9D 
.70216Q 
' .70 2090 
.7021nn 
.702100 


2-Di OCSEE 
ajNlALF) 

^.DtjOOOti" 
•aoDOoo ' 
’'•OCDOOO 

,*booo‘dd” 

.rjGOQDi; ' 
Jauoaoo 
rOCODOfl" 
.oaooQo ' 
Toooaoo 
TobcrdiQcr 
” .odoocTc" 
"•000000*" 
Tobdobo” 

•tODOCO"' 

-OOOOOD-~ 

** .oooodo*” 
, OuODDC * 
• OClOQDC 

rooooD‘ 0 "' 

.ocoooo" 

■DCOOOQ 

™*CODOOO 

.ouoooo 

•cuoooc 


-i.Qooroo 

-I. 000000 


1*DODDOO 

.000000 

.A 

['•oounuo 

•oobooo 


L. 000000 ’ 

• OOOQOD 

... ; i 

l.DQCOOO 

’’.d'oodoo' 

• 1 

i . dbudoo 

.oboodo 





L.QOOQOO 

• OOOOQO 


L.dooooa 

"VooDoao" " 


L .000000 

.000000 

' 

..QOODOO 

lodpODO' 

__ ft 

..oodooo 

.000000 

' r 

• bDQDDQ< 

«OCCODQ 


.oodooo 

*000000 


.OOOOQO 

“ OOOQOO" ”” 


•000000 

•000000 


Voodoo ' ’ 

Toooaoo 

, “ 1 

.oooroo 

• OQOOOO 


♦OQOCOO 

*000000 


.OODOOO 

‘ *000000' 


.000000* 

’Ioooood’ 

. 

.DOODOa 

'Tflodooo' 


.000 000 

•OODOOO 

* 

,000000 

• OOQOOO" 



264 



POTtHTl*L FLOW - - 2-0 , 23Y RELEASE 0-1-1 FtOR FIELD PLOTS 

ELEHEW1 roORDINATE DATA FOR BOOT ID 2, ' " ' “'j-o'oCSEE — 

J I'*!* OL OS SIRIALFI COSIALFI CURVATURE 



' *16 " 

_ ’fSajocs 


itusoi^ 

z.iZQiin 

?acj92io 

92646PJ 
.,_*?6633U 

.2&460D 

jZ6633n 

- -.112122 
-.119641 

-.'993694. 

-.992792 

.ooDopg . 
.OQQODQ 

N7 

‘*9*ie7 0 30 


5*0fla250 ‘ - 



, 

* 



9«0S<l23S 


3<071ZdS 

S»a54520 

*267741 9 

.267749 

-.126723 

-.991938 

>QQPQ«a 

* i|-S 

B«76eilS 

e«A5*i79C 


3»0364&5 

3*018610 

•26903D 

.269030 

-.132736 . 

-t99n&l 

. rOaaovQ _ . 

‘sc 

B**i210ro 

a«3B721U 


2 *^9^9as 
2.981360 

.270160 

.27C160 

-.1378 81 

.-.990449,. 

. -gOpDDD 


POiEKJiAi; Fl:o^ 


I 

xm 


„ «.2SJ015 

"si 

«.ueft2u,‘ 


7,9 b*i 3C0’ 

62 

7*a*j97 flf} 


7.71*I99U 

b}. 

7*$eij2 cb 



7*4*IS225 

fiMi 

7*31Q2SQ ' 


7.17S15S 

S S 



. 6.9JSlt(] 


6 *770140 


6,6JS3,7U 

si 

&*SLC6CQ 

- 6. 

6.3tj61C54 

sa 

6.23I610 


•'-B' . 2JY BBIEASC n-l-li FlOK FirUd PL DTS 
fLEHfNT rOOHDI'NATL DA'TA FOR BOflY ID : 2 , 

- YM) OL 


_ 2.96207' 

2. 9112790 
2.922985 
2.903180 
2.B029TP 
2.062760 

2 .ai| 22 »n 

' '2.821820' 
2.80I71P 
2.780600 
2.760020 
2.7399110 

2.719015 

■2.698590' 
2.61786 50 
2.668310 
2.63859S' 
2.610680 

2^^97 05' 

2.560530 

2.562025 

2.593520 

.2,5258 00 _ 

2.508880 



2“7<l9i|'0' 

2.158630 

2.9112820 " 
2.928130 

2.'5]3990 

2.399955 

27386978 
. . Ji^ 79295 ', 

2 ; 36212 o“ 

- „ z'.35n90' 

2, 3911550' 

... : J:3S'1250 

2'.321990.' 
2.3'19 las 
2.3061130 
2.3082917 
21294150 
. _ 2.289708 
2.285251) 
2.28259 0' 
2.279838 
2.278914 
2 .278800 
, 2.281294 
2.269598 


_ 6.897 9 50 
8.96529c 
S.J295'5 
5.6"957e(l 

4 j _5629 95_ 

5.929210 “ ' 
_5_.29_6 9 55. 
5.'l637f0'l 

5.0315 40 

9 .899380 
4 .767880 

4 7636*390 " ■ 
_ 9.SB5520. 

9 . 379 Tro'". ■" 
9 .299 670 
4.119548 
_3;.98S24S_ 

5 .865970. 

, 3.727515 

3.499060 " ■ 
__3.4714 70 

37 34*3 a at"' 

. 3.21719C 
3. 090580 
2.969790 
2. 438980 
2.719170 

2746936U 
2.965525 
2.3916 9U 
Z.71889S 
2.896(jCa 
.1.976620 
1 .861290 


8007 in : 2 , 


2 -J> 8 CSCE 


• — '• ^ - 

OL 

09 

SIMULFI 

COSUtFI 

CURtfATURE' 

.2711'97' 


^-jl9.2297 

— “*?g9831 ^ 

.. *000000 

►271990 

.271940 

“♦1456 57 

, -.999355 

. OOODOO 

8.272591 

, .272593 

-.19827*' 

-•98B946 

•OODOOQ 

— _^.'^C37 

. .273037 

_ Zj!499Ji3 



• 0000 00 

,273336 

•?733I6 

-.15G814 

-.988562 

• OOOOQO' 

.273090. 

•273040 

“-150747' 

“♦988572 

, ’ .oooDoq 



^ •27^16 

__ . -.149643 

-.98871^ 

• OOOOptp 

,271989 

.271989 

-.148094 

- - - 

. — -.fOOOOOO 

.271202 

.271202' 

-1.14539(3^ 

'•9»9374,_ 

-DOOODO 

.278295 

- -iilniiS? 

“•141908 

-.989880 



.769127 

-•J375i?; 



; •□OQOOO 

.267665 

•267865 

.-ill? 306. 



... .000000 

.266952 

•266452 

-. 126252 

“.991998 


_ . .264934 

..264934 

_nW3Sl 

. :.9?2_a5^ 

.OOODOO' 

. .25.32 8 4 

..263284 , 

„-.ni5?o 

. .. -.9937S4_ 

.000000 

.261554 

.261559 

.-.103119 

“*994670 


„ .2597-14. 

. *25V7!4 

-.0?3757_, 

“.995S95 

.ODDODD 

,?57a|.J. . 

.24T8J3 

-,095627 

- . ::>?96497 

.RPOOQO 

j2y858' 

, .255056 _ 

,._:i,DUT75 

-•997348 

•OpDQOO^ 


,253854 

“.06)098 

-'.998J32 

tOPODQO 

•251820 

.251820 

-.048765 

-.998810 

•OpOOOD 

•249779 

• •249779 

.,7*035632 

-♦999365 

.000000 

.297729- 

,247729 

".S2I879 

-.999761 

,000000 

• 28S697 

•2956’7 

-'.0679 98 

-.999972 

t OOOOQO 

■2^4352 

.234R52 

.028060 

-,999«p6‘ 

fOOOOOD^ 


266 ; 




2-D OCSLC 

■’ f 


OS 

S1N(ALF ) 

COS(AtF> 

CURVATURE ; 

*2lS2aS 

•062542 

-*996566 

• « 

• 000000 '* i' 

«199S01 

•1SM4S5 

-*990922 

.OOOOUD ' j 


• laSiiiM 

-•982736 

1 

.000600 * ' 

*171272 

.236124 

-•971965 

" i 

• 000000 1 

*1S86140 

.266237 

-.958457 

• 1 

.ODDDDO *• f 

• 1^*6901 . _ 

.336009 

*i5.91ftS9 _ 

..000000 1 


.1268 05 

4440684 

-•697662 

•DOQOQO 


.116299 

.495018 

-.668683 

•DOOOOO 

■ 

.107430 

•5508T1 

-.634590 

•000000 

tSD 





ca 

,099093 

•6C79I4 

-.794 QOZ 

•000 ODD 

T^3 

.091274 

.665560 

-.746326 

•DOOOQD 


.CRTTIS 

•724390 

-•669390 

•OODOOD 




*763186 

. -.621785 

• oaoflQO 



I 

1 


_#2155_6S >B392 fl T ■♦5«I3 7S1 J^OORPOP .. 




-.455917 

.aoQoan 

• C.73985 

•935711 

-.352767 

•OODOOO 

,079179. 

.973994 

-,224575 

.□ODOOD 

•082594 

•996927 

-.078335 

.ODOQOO 

,Qr5rT0 


.169689 „ , 

_j.DD.0D0Q 

•OA483C 


,S615«) 

^DDQDQfi , 

•10C196 

•639634 

.76867'» 

•000000 

|106468 

^500059 

,665992 

rQdOOOO . 

.114125 

.406309 

•9J3736 _ 

♦ OqODQp . . . 

*1)9300 

.340067 

*940401 „ 

..BDDDQa_ 



P01EHU4L FlOK - - 3-n . 23V RFl C »SE ’0- 1-1 FLOW FIELD PIOIS 

ClEMENl coordinate data FOR BOnt' 10 = 2," 

TU) DL 


.SORSfU 

.Sfc9370' 
.632 9^0 

*696&ia 
. . *76*l0!0 

• eBlRSb 

.9027« 

. .974 12U 

, 1. 049 4 9^ 

U1248TD 

1.2Q44fa 

1.284050 

L2?^03S 

I .4S20'?0"' 

1 *629 19C 
* 1.72258S 

i.fti59eu 

K9^4415 

2.0‘l2a53“‘ 

^•31658D_ 

?t?2U3iu 

L* 32958b 

2*t|3886D“ 

2.5S3 930 

2.669DCQ 

2^970290*“' 

3.120935_ 

3.2ri5S£. ■ 

S.U22 22^ 

3.9728‘70 



3«a74l6C 

4.n24BCS 

4*17545w 
4. 3260 05 
4*476740 
^ 4.6273 85 
4l77B03g 
. 4.928675 

5.079526 
5. 2 299 65 
5.3866t0 
, _ 5*5332S5 
S.6819(C 
r»tfi52545 
5*953190 
_^_6^133 8 3S 
6.2844QL 


-...3.*7030?5 
‘3".72l220 ‘ 
3*737770 
3.754320 
'3t769520 
3.784720 
3.79B730 
3^827740“ 
3.625670 
3.838800 
3*65nsnn 
3.862400 

3^§73g75 

i.©0415o"' 
3.893965 
3.-905780 
^ _ 3.912475 
3.921170 
3.92 8610 
3.936r*50'"' 

3*942054 

3*948n60 

^ 3-952315 

3.956970 

3.9 56435 

3.9603QO 

3.960300 

3.96030D'” 

J*?6030n 

3.960300 
3.96 03 00^ 
3.9 603 00 

l«9^4Q30fl.._ 

3*960300 

3.960300 

3.960300 
3>96 Q^0n 
3.960300 
3.960300 . 

3.960300 
^.3*960300 
-3.960300*“ 

1.960300 

3.960300""^ 

3.9603DP 

3.960300 

3.96J3D0 

3.960300 

,*-.w3j96Qtor| 

3.'960300 


12514 ?.. 

tl3l475 

. 4392^4 

.14539 5 

*152952 
.160949 
>16937 2 

,187598^ 

*197432 

—•2078 07. 
- * 2157 16 
.2301 70 

- . *A?i290L. 



. 3 D 129 Q 
. .. _-3fll290„ 
_..3012 9 D_ 


*L?.Si48. 

*131475 
*138224 
14^95. 
.1S29S2 
f 16C949 
_ *169372 
_*)ie?54 

*l9 7i^32 
__.JJp78g7, 
._.2.a87 l6 ^ 
.23017 0 

-_!yji2.'7a , 

_i-5Dl|.7y 

.301 290 

.-.A30J29Q.. 

.3C1J291J 


2-0 0C5EF 
SlNfALFl 

.290777 

.251759 

.192716 

. *1*69073 

- «J47872 „ 

.1284 15 

.. - ^UOJSfi.. 

sB926 7B__ 

.07S36B 

.0 57794 

. * , 0 38 9 0 9 

.016205 

__ . »_900QGC_^ 

.00 0000 

.QQQQOO 

- ,..jO.QP80L-. 
-..-•QQgpOQ 


f97SSl5 

.981 2SS_ 

.... *985604 

„ . fS89006 

*991720 

^*993918 

?395 69.4_ 

■997 1S6 

5?98 32^ 

*999243... 

.999869 

1 . 00000 0 

I.COC OOO 

1 .000000 

i^oaacao. 

JLiQQpOOp , 


.301290 

Liaij’o . 

.OlOODO 

1 .nflnnnn 


. 3012 VD 

. . *501290 

. 0.000 DC 

1,000000 

* uuu.tftfiJ 

•OpODOC 

. 501290 , 

„ . t 30)290 

.•QaOUQE . 

1 * 00 «J 10 P 

^ jpOQOQO 


i^ 0 J.??D 

.DOODOO 

i.ooong? 


.301290 

. 30 l 29 n 

.(‘OODoa 

l.OOODOO 

igogqpQ 

..301270 

.301290 

■incdooc 

itaoocoQ 

•QODflOO . . 

} 3 O ^220 

,| 30129 D 

. _ .000000 

— itODDacc 

.OQOOOD 


8&Z 



PC1ENT1AL Flow 

■- 2-0 , 23V 

RELEASE 0-1-1 FLOW 

FIELD PLOTS 





-- — 

FLEHrNT roORDIHllE D*I* FOR BOOV ID : 2i 


2-0 OCSCE 



1 

Xtll 

mi 

dl 

OS 

$INCALF1 

COS<ALF> 

CUftVATUJlE 






- 





6*M3S13u 

t".5es>eo 

6»736M2S 


•3O13Q0 

.301300 

,000000 

l.OOODQD 

•000000 

12< 

”■ '3*960300 

3*960300 

♦30J290 

•30129Q 

(SODODC _ . 

00000,0 

.000000 

127 

6.$a707Q 

7*037715 

3.960300 

3*960300 

,301290 

.30129Q , 

,CQQpag„ . 

_ „ llpOOOOO _ „ _ 

^,_.oooqop 

l2fi 

~ 7* l8d 360 

3.960300 

3*9603'00 

.3012*0 

.301290 

•oaoooc' 

l.CDOOCO 

*000000 

12^ 

7«4896*S0 
7 *640295 
’7*79U9M0' 
7^941 5 85 
8.092230 

3*960^00 

3*960300 

3.960300 

3.960300 

3«96D3qO 

.3D1290 

.301290 

.QGDOOO 

»±*eSS990 .. 

•oooooo 

13C“ “ 

•$01290 

.000000 

1*000000 

,000000 

■ " 131 

' .301290 

.301290 

.QDOOOD 

1 .000000 

•ODODOO 

1 32 

R.393520 
8.S44 16S_ 
81694810' 

3.96Q300 
3.960300 _ 
3.960X00 
3.960X0Q 

• 301290 

.S01290 

.OUDODO 

1 .000000 

*000000 


.101240 

.301290 . . 

•OCQOQQ 

l.ODOOOO 

•000000 






— p— 

8.996 ICO 
9.146745 

3.960X00 

3.960300 

.3U1290 

.301290 

.000000 

l.ODOOOO 

*000000 

135 

9.297390 
9.446 035 

3.960XQQ 

3*960300 

.301240 

.301290 

•GDOODO 

l.ODOOOO 

•ooDooa 

13« 

9.598680 

X’.96D30Q 

;«960xon 

,301290 

.301290 

.000000 

1,000000 

•DDOODO 

Tii 

9.899970 

1H.0SO615 

3*960300 

3*960300 

,301290 

.301290 

,000000 

1 .000000 

.ODDODO 

iia 

20*201260 

3*960300 

3«96DX0n 

.30129Q 

.301290 

•ocoooo 

i.ooconn 

.000000 

lif 

10*502550 

3*960300 
X .960300 

.301290 

.301290 

.000000 

L.GOOOOO 

.DODOno 

j MC 

10.803640 
10. - 4485 

3.960300 

3.960300 

.301290 

.301290 

•QOaOQO 

1.000000 

.000000 

1 im 

n* bl30 

3*960300 

X*960XnO 

•301290 

.30 1290 

.GOOQDO 

L.oooodo 

.000000 

1 " 142 

11. 6420 

11 *557n£5 

3‘i960300' 

.301290 

•3D1290 

• 0U30O& 

l.OODOOD 

*990000 







i 143 

11*707710 

3*960300 

.701290 ' 

,301290 

.OCjOODO 

l.aOQOGO 

*000000 

i i4<t 

l7*Cu9CC0 

12*1S90CD 

3.960300 

3*960300 

.300000. 

, *300000 

•OCOOOO 

l.OODCOO ... , 

lOooooO 





IMS 

12.3090CD 

12»4S9nrO 

3*960300 

3*960300 

,3_6nOI]U , , 

)36 0000 

.ocoppo 

. .. li099P0P„..- 

,090000 

1 14 ( 

) 

l?*6690l0 

12 .assoco 

3*960^00 

3*960300 

.43ZOOO 

,432000 

'.DOOUOQ 

1 .ononoo 

.OOOOOD 

\ 141 

13*1010CG 

13*36C?CD 

3*9,60300 

3f96Q3Q0 

,5181(00 . 

.610400 

..ooaooo 

ItPOOCIQO. . 

.. 090000 . 

1" 140 

13*6194 CO 
13*930440 

3*960300 

3.960300 

,622080 _ 

•622OS0 

*000000 

),OOOOOp 

fOgqooD 

: JM9 

] 

14.24148D 

3.9603QQ 

$t96030D 



ji465ag „ 

jCSOUflS 

UC99999 

fpiOflOB. 

1 15C 

14*987980 

3.9603D0 . 
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ORIGINAL PAGE IS 
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-•094955 
-.069230 
-•083640 
-.078068 
, -.072537 
-. 067090 
-.061754 
-*056533 
“.p5l49£ 
-•046635 
^r!f^9204 1 
-^037707* 
-.029137 
-•nl70l4 
-.006352 
•003425 
. »012614 

• 021374* 
•Q29889 
•038235 
.046521 

• 0 54;76 6 
0 6 3040 

“ 0713 06' 
.079483 
.087616 
. 095688 
.103417 
.109918 
. 116030" 
tl205S6 
4 120359 
111408 
..080265 
. .056895_ 
.043676 
f 035839 
« 031786 
.029519 
.028296 
. , 1*27609 
..02'7S66 
-.027801 
.028294 



P01CM1IAL FLOW - - 2-r> t 23V RTtFASE 0-1-1 FLOW Fl£tO PLATS 


2tt3 

204 

28S 

206 

287 

-■»i or*j«jO 
^ -•I'ongjo 
-.rorjt.o 
-.rorooo* 
' -.rionoto 
-•oonouo 

1.176277 

1.174074 

1.17|413 

1.164314 

1,164204 

1.1SA263 

.H2S<77 

,n2')Rai 

.0307S3 

.031732 

.032722 

.033594 



209 

-^f’nruoo 

1.146S75 

. 034095 



2V0 

-•rcncoO 

1.127426 

. 036946 


... ♦ 

291 

-;nnnc,cio 

1 .JOFS'lZ 

.043303 



292 

-.nmaua . 

1 .092769 

.049368 


. — - 

293 

-«orjaocu 

l.CB3(iS5 

.055315 



294 

-•^’orcoo 

1.076666 

.061226 

.. 


295 

-,roc?ocf5 

I.HTIOVC 

•067132 



296 

-.r-ac-jflo . 

1.066521 

• D730A4 


- - 

297 

-.OODliUO 

I.D&2646 

.079095 



298 

-•oonooi 

1 .059446 

•DB51&2 



299 

-►nonoDl 

1.0566SD 

."91 JS7 





1 .nS42Pl 

• 097628 



301 

• •iionooi 

ti05?061 ^ 

• 104000 



3U2 

-•nccooi 

1.050170 

. 110474 


- 

3u3 

-.f'OCODl 

1.048456 

.117099 



304 

-.ncnjci 

1.046951 

. 123717 


.. 

30S 

-•tlOOtJOl 

1.045503 

• 13P466 





1.044233 

.137279 



■ 307 

-.11*00001 ' 

1.04P986' 

'iitmar 


bO 

308 

•.noocQi 

1.041602 

»1S0955 


‘ . . - — - . — OQ 

3U9 

‘ -.ClflCuOl 

l.C4nSS6 

.157722 



310 

-.notiooi 

1.034363 

.164351 


. .. — T1. 

311 

-.'30D001 

1.038101 

.170749 



312 

-.000001 

1.036660 

.176800 

_ 

__ . .. — 

'313 

-.rocuui 

1.035129 

.18236b 


\ 

3U 

-.Fionoci 

1.03337U 

• 187296 



315 

-.000001 

1.031412 

.19141!. 


o S 

316 

--OOnODI 

1.0202t,l 

.194548 



317 

-.ocncoi 

1*026666 

.I96S30 




-.Aflnrvn i 

1.024473 

•19724C 


. — 

319 

-♦rflpooi' 

"l.P221‘>7 

.196649 


o % 

320 

-.pc<iuoJ 

1.02H229 

.I949B9 


o ^ - ' ■ 

321 

-•PQOOOl 

1.019399 

•192432 



322 

-.coruci 

1.O17760 

•189409 


'PJ 

323 

-^COOOOl 

] .(U637>| 

.185816 



324 

-•POOCiCl 

i.Ptne&B 

.161713 


to — 

32 5 

- .00060 1 

1.013049 

.17TU25 



326 

-•conoci 

1.610563 

.1 71649 



327 

-.cooocn 

1. 010299 

.US97fr 



328 

-.wooao 1 

1.004B16 

.UC>36& 



329 

-. 00 not 1 

1.C0O39B 

• 154614 



330 

-.rooboi 

1.008964 

.1493U. 


- - — - ~ - - 

331 

-.rooooi 

1.008566 

.143865 



332 

-.PtK^OOl 

1. 6^8207 

. 1 38452 



353 

‘ -.rooooi 

1.007889 

. 1 33U76 

. 


334 

-.noooQ 1 

1.0CJ7619 

.127730 



33S 

-.roPQo 1 

1. 007371 

*122411 



336 

, -.poonui 

007142 

.U711S . 



337 

-.LOftUC 1 

1.006974 

•111639 



330 


1.006828 

*106579 



}39 

"*-.r00gUl 

1.0067122 

• 101 33 1 


, 



PflUNTlAl FLOU 


j-n 


j'<ro 

i'll . . 

ZH2 

Ji)3 

3 <(H 

.J 4-5 

3H6 
. 3117 
3 ^a ■ ■ ■ 
Zh<> 

3S.0 ' 



352 

i 353 _ 

35» 


23V »FlE<SE 0-3-1 


■rtow FiEun PLOTS ■ ' ■ ' 


1.DQ6&25 
uon 6 S 9 T 
1>I1055A7 
, J, 00 «S<I 6 
1.00&T47 

U0071S7 
_ JtOOTSOV 
1 >007982 
l>nORii |7 
3 >009585 


-.nn''OL I 

-> 0001 . 1)1 
-)PCjoouj 
->(ionLCij 
-.p op.irn 
->rooROi 
_-*e)o?.C.oi 
-•£3000il 1 
--TlJOO 0 
-♦oon 0 
■*Qon D 
--rop 0 

.^•r.oc 0 

-•Qon 0 


J.D17133 


.^ 9609 Y 

»<l^cr 660 

*na 56?9 

• [>80396 

• f» 7 Sl 56 

._i<^ 699 QL 

*059319 

•0&3967 

»P4303S 

•031939 

*0^5033 

*017609 




0 PLOTS 



2i85Ckl97. 

2«A56<t53 
2f65^34a 
2.858756 
2.85^713 

2,fl*J7lS9 

2.83599I 
^•8213BG 
2«^80453Q 
?*767761 
2»77153C 

_2*75S449 

2 #737727 ““ 

2.7153B7 
2»67S960 
2.622964 
2#55SD90 
2.47Spei_.__ 
2.J0S979 
2.2909IS 
2.192633 
2t0933d2 
Jt99S054 
l,698975_. . 

1.A062T6 

1*717573 
1.633301 
I.S53700 
l«47d79B 
1.40858S _ , 

1*342687 
4.2B1S20 
U226246 




POUNtlAI/ Flow •“-"j-D. 


23Y RBLCASF 0-1-1 FiOW FIELH PLOTS 


&S 

Sb 

57, 

58 

59 
bO 


bi 

6J’ 

9*»-- 

65' 

66 


67 

. 'feai. 

69 

70 
7h 

73- 
79 
7S’ 
„76_ 

?a 


7? 

eo_ 

ar 

fiJ-. 

8 3' 
B9 


65 

bb\_ 

87‘ 

88 

89 

9:i 


91' 

92 

93 
99’ 
95 

. 96 _ 
. 97 

98 

99 

ico 

101 

102 

103 

109 

105 . 

106 
107" 

109.“ 

110 
111 


-•ronooD 

•••tinaon 

-•t-onDjo 

''••popjeo 

•000000 

> «^Qnobo__ 

• OUOuOi)"" 
, *oorncirr 

• OOOUQO' 

riP 0 

u- 

> r. 

h 

♦rooQor 
.,.*L»00000' . 
•.^DflOOO 

•nocaol 

•PDCOOl 
. jftciaoco 

• ijOr<ooD 

_S^'CCn,00 

•^'OnOGQ 

_4.nanfloo_ 

•POGOJi 

inonooi 

•OO^jul 

_t^*O0001 

*0000(1] 

• ^♦onon? 

.0000112 ■■ 

„ .P00QD2 

•oonoos 

•P000L2 

•conoQz 

_.COP002 

•oofcioz’”' 

.000002 

iPnouo? 

• PC'^COZ 

W*00u03.- 

^nOP0027 

•noooo? 

•POOOC2 

•cononz 

•ODOOOS 

•Puaoo2 

.ponooj 

.f»Q0SrfU3 

»nOP3UT 

♦OQOOQ3 

♦noooor 

«0DCCJ9^ 

.non^os 

,000009 

• <!0n(j03 
. .OOCCiO^ 


'.776630 

.820177 

•866353 

♦'9;«;9Sb 

.>967491 

_1 .085743 

1.08464Q 

U’l'saoTr 

1V226970 

1.311367 

U398413' 

-} J "^6^^ 

"l ^68*5 7 05 
.1*7941 i>3 ' 
1*906004 
2:025253 

2;15’S399 
_2.2941^6. 
il449633 
2*624191 
2.622678 
3,CS3726 
3.326179 
_3'.tS84*;3_ _ 
*r.”p75bS8 ■ ’ 
, 4:622932 
5.366721. 
6*3834*50 
7.S27764 
_7^675 782l^ 
6.9113619 
_6. 260056^ 
”s*787414” 
5;3753S3 
4r971159 

4^564025 

‘ 4,163982 * 
5*7ft7669-. 
3.432995 
3.094936 
2*776009- 
.2*4773191 _ 
2*197728 
11937174 
K694007 
Ii467766- 
1 •256716- 
I.PS9364 
* *371763 
.667172> 
.512204 
;42753S 
.346872 
•276631 
.2217^6 
.173867 
•133864 


1.170813 
1.12P95S- 
1.074 38'3 
i* 0308 15 
.989944 

*?5;'jl59 

*915046 
, .880311 
* *846'73‘5 
*813447' 
*777822 

<7419 49 

**7i6232 
. .‘9TIS0 

.6SD93U 
• 6b«6Z'8 
•6B38Q9 

f6<tZDZ7 

T«>jl[j92' 
<6206!e 
' .613307 
’.,.599612 
.568031- 
_i5783?6 


. .558695 
.531SZ6 
.489036 
.408651 
•228084 

-.z'loai 1 
-.J*89yi8 
-.333797 
-.371'3n2 
-.<105375 
.-.‘i35(,8 5_ 
-.<161961 
_ -.<(83682 
-.6n2698‘ 
-.519121 
'.533<I36 
.--tS<l6DlS, 
-'.55738'! 
-.567871 
-.578020 
-.58B2<(7 
-’.59927 0 
-.612U67- 
-.62fl36'7* 
-•65'3t«’e 
-.883564 
-'.71152 3 
' -.73'81D2 
-1760360 
-.78531 1 
-.8M'36 7 
-.838817 



POTENTIAL 

FLOU - - 2-D r 

237 RELEASE D-1-1 f 

112 

.roDOOi 

.099924 

113 

.000004 

.070970 

114 

. 000004 

,046640 

115 

*. ronoo4 

.024191 

11b 

• Q0''004 

•006361 

117 

,nc'-'U04 

-.00<»7fl7 

lie 

.^00005 

-.024293 

119 

«l>09005 

-.037857 

120 

•nucoob 

-.049800 

121 

• OOC.^05 

-.061331 

122 

«O000«i7 

-.071873 

123 

*70<^v0*i 

-.081933 

124 

.000004 

-•091680 

12S 

• OO'^ODb 

-*100440 

126 

.ODGOOS 

-*109226 

127 

.>^0f(l06 

-.117527 

126 

' .P00006 

-.125064 

129 

.<mnoo4 

-.131214 

• I3n 

.000006 

-.137410 

N 131 

.000007 

-.141564 

132 

•000009 

1X175,7 

133 

.^’DGOOfl 

-.144643 

134 

.nnboLO 

-.142725 

135 

- .000u09 

-.138030 

1S6 

.000012 

-.130967 

137 

.OOOOIO 

-.118J61 

138 

»Poroi D 

-.102687 

139 

.oonoii 

-.082972 

14J 

• POnGlQ 

-.056866 

141 

•ooroi i 

-.021305 

142 

.'i(jr[(u9 

•04B392 

143 


•0661SI 

144 

•008S05 

•02221B 

145 

.noooo‘7 

.007156 

146 

.OOOUD5 

, -.G1118J0 

147 

.fiflrooa 

-.008540 

146 

• ?0C'JU2 

/ -.013598 

149 

,nOn(jjj7 

. * -.'217764 

150 

»PIjOQU7 

'•012892 

151 

.PDrOU9 

-.008979 

152 

•noouoT 

. -.004813 

153 

.PDC'JOS 

".ronaiH 

154 

•ronj04 

•0U3083 

155 

.C0m)08 

.007979 

156 

•uooDin 

•012047 

!57 

•nnnuio 

.016489 

1S6 

•oor.«09 

.020476 

1S9 

• flD03G6 

.024926 

160 

.ao'*oo7 

•026781 

161 

•P00304 

,CS?716 

162 

. .000006 

.035322 

163 

’ -.CiOOoCIt 

•C36347 

164 

• ')oaoo6 

.04 1117 

165 

, .ro^iuo 

.041701 

166 

.rmf'Ju? 

.040846 

167 

•000008 

.036316 

168 

.1100007 

•0269X6 


FIFLO PLOTS 


-4067^04 
-•096642 
-•931756 
-•96664 i 
1*00434 2 
1.044371 
■iVna7i5 4" 
1.132905 
i • iai79l 
l•^34018 

l.^a9773 

1.349217 

17m?5ir 

1.479726’ 
-1.550865 
1.625959 
■1.70479 3 
1.7A7218, 
■i.872ii 3 
i;96U?3 
■2.051375 
•2. 142707 
-2.2336&S 
•2. 3234ftL 
’ 2.409996 
■2,491466 
2.S6S91 3 
•2.631418 
2.685519 
■2.72SS70 
•2.746'‘l3'd 
• 2.750302 
■2.75^711 
■2.76563L 
2.779071 
*?.793925_ 
■2.809469 

■2.82S0Q0 

■2.836416 

*2.646340 

'2.854829 

'2.857686 

•21657559" 

>2.653620 

•2.646676 

■2.636074 

■2.621946 

'2.6U4 284 

-2. '762897 

■2.757652 

•2.726358 

•2.694791 

'2.656653 

•2.613563 

'2.465Q28 

*2.410407 

•2.446850 



285 



POTENTIAL flow - - ?-0 , PF LE ASET FLOW rULO 


169 

170 
371 
377* 

175 
179 
I’T's 

176 

177 
170 
379- 
300 


.oor^i 1 

♦.ft0flD09 

»(>uC010 

*00!1\}01 

>nopobi3 

-•btoobo" 

*oori)o7‘ 

, .’OO'^OOZ 
»0tiC0O5' 

• 0(7(1006 


'.Pifsno 
’•006008 
-•04 09*15 
-•093389 
-•177060 
-.292M«i8_ 
-.482bl9~ 
-•81863d 
-1 .7l'4709 
-1*714773 
-.81869D, 


18 ^ 

.obndos^ 

-.292S07 

1824 

.,000004 

-.172109 

■ 163 

•nonoQq 

-.093437 

laoi. 

oonooz 

^ ,-.040985 

185 

'.000003 

-•006846 

186 

.OOPOL? 

•015471 

187 

.rcoyoi- 

•nZ8963 

- »88- 

•000009 

.036744 

1B9 

•OOOQIC 

• □4Ca 16 

l?0 

• ooiigro 

, -.in4l‘6?2 

191 

• CQPiUO 

.041093 

192-^ 

.norii09 

.03^825 

193 

.300010 

.03S882 

194 

•nonoQ9 

♦032697 

I9S 

•noooio 

*028765 

196 

.03rjP8 

.H24913 

197 

.00 03uB 

“.020468 

198 

.00PDC7 

-016484 


2011 

20i> 

20Z 

203 ’ 

204 


• OQ1?007 
•notooT 
•parojs ' 

, •0GC0O8 
•oUODu? 

• ClfiP009' 


205 

.00006A 

2C6 

■ nCJDOLO 

207 

.(107008 

208 

.OOPoC.8 

209 

•0C00U7 

210 

• 0000J.7' 

211 

• OOO&OBt ' 

21? . . 

. «OOOGu7 

213 

•noooos 

214 

•conoas 

215 

.*100002' 

216 

-.(inroj2 

217 

-•no ccjoi 

218 

- *40000 3 

219 

-*900001 

220 

-*P00£,j3 

221. 

-.npncmz 

222 

“.no 0002 

223 

- .Pufrj04 

224 

- .nonoo3 

225 

-.00 noo3 


•012047 
_ -□07982. 
“.□03086 

^-.DOOftOO 

-.004005 

;.00ft9ft5 

“-7bl?8 74‘ 

r. 017743 

-.01-3576 
, -.004524 

-•001793 

.0071 84 

•022251" 

•066182 

•04B424 

-•021272 

-1.056834^ 

, -•0fi?940 

-.102854 
-•110278 
-.130935 
*.137995. 
-.142690 
_ -.144696' 

-.1437?6 
-•141525 
-•137371 


PLOTS ■ 

•27379230 
-2.299991 
■2.P09U2U 
•2.I05334 
•r.9786!2 
•l.ASgSrs 
■1.641827 
-1*399587 
■W05935'3 
1,0593’6 9 
U39960'8 
J.64r8S’Z 
l.82834‘8 
1.978645 
2.103371 
2*209061 
2. 300035 
2^.379276 
2.448900 
2-Sit)459 
2.56S084 
2(613622 
2.656715 
2^*6940^4 
Ti 728424 
2,757719 
?. 782967 
2.804356 
2.822022 
p. 836145 
2,fl467ST 
2.853896 
2iA5761«l 
2.857964 
2.B549D5 
2.B46417 
2^ft3849r 
2.825074 
2^09562 
2,793996 
2.779142 
Z. 765700* 
21754781* 
^.750371 
2*746198 
2.725637 
2. 685585 
2,63'14B2 
2.565975' 
2.491526 
2.41U056 
2.323b35 
2.733918 
2 .*142757 
2'.n5142 J 
1*961168 
1 .872855 




PLOTS 


K7fl725B 

1^734831 

!*«i6t>B99 

|.ij7975S 

l«3t|92^S 
1*289SOO - 
1*231J0^3 
1 • t61»75 
J. 132927 
__ 1 , 0 B 7 i 7 £ 
ir0«»<j391 
1*004360 
' * 9 «&a 6 i 
.931775 
.698858 
.96^1 

. ip'sasl'i'* 

.811360 

‘.78532S 
*760392 
•7361 13 
^711339 
.683579” 
.653197 
•67637S 
.612074 
.'S 992 7 7 
58625^ 
•S78026 
.567876 
.557386 
.546019 
.5J344C 
-.51912^ 
'^502701 
.4 83b84 
.461963 
.435666 
•405376 
.571302 
iS33797 
•289417 
.740810 
,.0844 S3 
-.228069 
'-•4CI6856 
-.489042 
- .531534 
-.556851 
-.574531 
-.586038 
-.599619 
-.610514 
-.620646 
-.63U0i] 




POICNIIAI Flow 

,283 " 

2BS 

?Ro 

2ft7 


2-n « 23V Rf,LFA^ 0-3 -r FlOU FlfiLfl PLOTS 


*OODOU? 
• ■^CauDI 
«i]0DLb3 
*(]oraj3 
«OOOJ{)3 


. 289” 

•000003 

29j 

tOOOCO? 

291 

•00^)004 

292 

.noruoa 

293 

•000004 

294 

j'lOnoOB 

295 

• ocnoo4 

296 

- ._.OCC>005 

297 

•nonjQS 



299 

.flOnoos 

300 . 

..noojQs 

30 2 

.000005 

302 

.P00006 

303 

.00^006 

3C9 

.OOflDOS 

30 S 

•000007 

3U6 

.(1QOOQ6 


307 

308 
3uy" 
31Q:, 

311 

312 


31J 

314 

315 


•ncnouA 

*nootj09 ’ 
_iOorjmi7 
.nOG009 ‘ 

.nocoio 
.nof^oj I 
‘7 <ioouiq‘' 


156 

2. 153396 
2.02S249 
> '1 •9i36dP0 
>1 « 794C98 
,.J. 685099 
t«5S6l7D 
1*398406 
1«31M61 
1*226962 
1.1S2S23 
_T,.n8 48 32 
1*023733 
« *967481 
•915446 
„ 1366343 
•820167 
*776619 
* 73 « i 821 ” 
_ .694688 
•656300 
•6IA619 
.583198 “ 
.54 7696 
•514038 
^•481011 
•449609 
_ .419835 
.391692'’ ■ 
.366298_ 
.3436V9 
J. 324478 
• 3099 39 ’ 


-.•64203 S 
'-.663a’l a 
■ “•666636 
-•680939 
-.697159 

-.JI6242 

' -.741959 
-.777834 
- -.ai34'60 
-.846748 
^'.880325 

-.915061 

-^951475 
-•989961 
-3.030834 
-7<074403 
-1'* 1209 75 

:l*17fl835 

'-1.22427C 
. , -Ii2fil546 
-1.34?9J5 
„ . .-1*408614 
-1^478826 

I*jl5S3 74 1 

-1.633'336 
, , -1.717630 

-1.806285* 
_-l*8990l7 
-1 .995098” 
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-2.760020 


.9 96099 
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1.423982 

_lt9B3894__ 
i. 383 )25 ~ 
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1.3,39672 
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-3 *2 87*00 

.600919 

l.ni5lS2 

-.0 3DS33 


159 

22.271230 

-3.287C0C 

•811128 

1 .014736 

-.029694 


160 

23*013325 

-3 .2 87'.DO 

.821337 

unifsi? 

-*0?88 30 



161 

23.755420 

-3.26T‘’00 

•831547 

1 •013879 

-*027950 


162 

24.497515 

-5 *287 'UO 

.841756 

1.0134Z7 

-•0 27U33 


163 

25.239610 

-3 .287fOO 

.851965 

1*012977 

-•Q26122 


164 

25.9fl)T05 

-3 .287000 

.862174 

1*012525 , 

-*025208 



J 

S16HA 

VN 

124 

-.138977 

•OOOOOd 

125 

-.144 116 

1000000“* 

126 

-,149175 

•000000 

127 

-*154100 

.OODOCD™’* 

128 

-.158883 

.OOODDD. . 

129 

-^63446 

•000000 

130 

-, 167759 

•QODOOO 

isT 

'-.171751 

•ODOOOO 

132 

-.175345 

.000000 , . 

133 

-.178450 

•DDOOOO 

134 

-.18098 J 

.000000 

135 

'-.182851 

.000000 

136 

-.18395^^ 

■ DOOpCD 

137 

-.184 186" 

.DDOOOO ‘ 

138 

-♦183497 

•000000 

139 

-*181796 

•aoooDi 

140 .. 

-•179035 

•DDOODQ 

141 

-•17514B 

' 'ioocooi' 

142 

,j7»_169941 

•ooooro 

143 

‘~-* 164S8 3 

' *000001 

144 

-.160727 

•ocoooo _ 

14 S 

156278 

•OQDOOO 

146 

-•151213 

•ODODOO 

14 7 

-.145367 

• DIIODDC) 

148 

138623 

•OOOQDO 

149 

-.130888 

.000000 

150 

-• 122691 

.000000 , 

151 

U4714 

•oooooo' 

152 

106958 

.000000 

153 

-.099425 

.oooooo 

154 

-S.C92120 

tOODOCO 

155 

-*085048 

•OOOOOO 

156 

-• C78213 

.oooooo . 

157 

-.071619 

•QOOOOO 

156 

-.065275 

• DOOOCIO 

159 

-.C59183 

•oooooo 

160_ _ 

-.053349 

•OODOPO 

16 1" 

’-^047 781 

” .nooQOO 

162 

C42484 

- .ODCQOO 

163 

C3746S 

•oooooo 

164 

7*032730 

•OOOOOO 





POIEHIIAL FLOk - - 7-n ,, 2-3».'.Hr'E£A£F fl-l-l FLOWi riFlO PLOTS. 

DOUOLfS «lRCB*fT C6 PPA[jV TU 0-D 1 Mf NS I ON »L. P07FNT I AL "pLOIJ PROEPAh'.' 

coliOiNEO, 'rLow ,, ■ 7-p ocsEE Hon.3A‘ 


ALPHA. = ^CBOOaO 


■nooaos 

, NO* 

or 8,001 £S 

2 




CL_ : .'00013 

'body id.':”"! 

1- y 

us U*V23ac:o 

Chord = unooooD, 

2-D#0CSCC 

V ' “ s 

•“3.?S7:UD •6771QU 

TOTAL ELEMENTS. 

NO. OF ELEMENTS 

VT CP 

l,.012O97‘ -.OPSZND 

177 

165 

SICHA 

VN 

.nooooo 

•OOOdOD 
-.□OODCO 
-.flOCQPG 
... yODOOOQ, 
•DOOQOO 

Ibb 27.>ieS9.<n 

JfcJ 2».?ri995 

JOe 28.9soosa 

„ . 169 i9.6«l?jas' 

. i.TO’ ic.'tsizad' 

m 31.17t37S 

“3 .287.“>0p 
_ •'3.287rOO 
-3 .267''00 
— rl^zftT'cio 
-3 .2P7rOO 
-3 .2P7''DD 

.a02S93 

t092802 

•903012 

..913221' 

.,923*130 

.933639 

1.011S.76 

1.011Q79 

i«niQ57v9 

1.010075 

U009SSO 

i'.an9a?q 

-.023265 
« ^ -•O?22B0 
-.021271 
-.020252 
-.019191 
-.□18129 

• 

166 

167 

168 

.169, , 

170 

-*C24 191 
020 300.. 
C16769 
. -•Ci355?F 
-.C1Q67Q 

172 31.910970 

173 _.3?j66056S_. 

J79 23.9f2660 

. _1l7£ _39.JP9755 

176 3H.8P665T' 

177 35.628950 

-3 •2 8,7000 
-3 ,287'“00 
-3 .287, cot 
. . “3 , 

-3 •287rQO 
*3 .287r00 

• 9<l 3849 
.9,S4O5 0 
•9692&T 
,974476 
•984686 ' 
•99489S 

1.008478 
1^007929 
1.P07359' 
. 1,006782 
1.D0&177 
1.00S49? 

-.017027' 

^ -.015920. 

-.014773 

-.013610 

-.012393 

-.011013 

- 

172 
. 173 
174 
175., 
176 

-• CG5699 
. -.ct^Gza 
-.CD2510 

... rtCDiSSi, 

-.COOBS8 

•0000 00 
,, ^.DOOOOO 
-.000000 

tOOOOOG 

*000000 

INTEGRAirO VALUES 









CV = t. 33279 

CL = 6.33279 

_rXi,^ -}np672 . 

CO. = ‘.DDfc72 

CH = -2B 

i7^88 

. 

' 

- -- 

— 

— 




POlCMtlAL FLAW - - ?-n , ?3Y RELEASE 0-1-1 FLOIt FIELtl PLOTS 

D0U6LAs""AlftCRA>T"" tO«PA«v"'M10-niMEWSIOHAL POTENTIAL FLOW PROGRAM 

2-D OCSEE NOn 3A 


COH81NFO FLOW 
alpha” . fOOUCO 


CL - 
BODV’lV* 


•COOOl 3 


alpha 6 s ,rf00003 

bH6^*"= iTbooooo”* 

““‘"2-0 OCSEF 


NO. OF 800ILS 2 

~f oVaI elehents 354 " 

wo . "of elements 177 


25.67fe9Sn 3 •282.‘'0.n _ 


34.0A69&0 

2(}.L44LS^ 

"j‘3.4Ce060 

31.918470 

3U17&37S 


3 .287000 
3.287000^ 
3‘.287rOO 
. 3i2fi7''00 
’ 3 #287 “bo 
3 .<:R7<-CJ0 


5^ 

"10 

U-. 

'12 

13 


30.4 T426D 
_29^.fe92l85_ 
"28.9^0090 
^g.2C799&__ 
27T4659C0 
2b.773aufl 


3 .267f'OQ 
J5 .287000. 
3.287100 

3 .267CU0 
3 .287 :uO 


^ODSIOS 

.oTssfw 

.025523^ 

’I 035733 
,□ 4594 ?,., 
.OS615 1 
.Q<>636n__ 
lOTTsfo 
.D86779 
• n9(i9a8 
WnV197 ^ 
.117407 
.127616 


VT 

-1 .00*V4_5? 


14 

15_ 

ii 

17 


18 

19 


25.981705 

25.239£in_ 

*247497515 

^^745420_ 

2J.C1332S 

Z2.27123H 


2G 

-21 . 
22 
,2 3^ 
"24 
25 


3.287I?D0 

^.287CnO 

3^2B7rClO 

3.287000 

’"3-287CaO 
3.287:DQ 
3*28‘7>uD 


.137R25 
,146034 



20.044945 
19.3C2850., 
”18^560750 
77 .618655 


26 

17.07656D 

27 

16 .334465 

26 

15 .592370 

29 

14.6StiaOO 

30 

" 14.169240 

31 

13.bri940_ 

32 

13.129195 

33 

12.715235 

34 

12.406935 

35 

12.133355 

36 

11.885525 

37 

11.637225 

58 

11.386620 

39 

11.134125 

40 

1G.8T9790 

41 

)0,6?3&75 



3.2B7rao 
3 .2 8 7 '*00 
3 »ZBir{jO 
3 .2a7roo , ^ 
3 .2 8 7«*0n 
3 .?a7rog 
“3“i2fl7rOO 
3 .2a7rQ0 
3 .2 87COO 
3*2fi7^tO 
3.2 36^75 
3.26240S 
3.275145 
3.264405 
3 .25U315 
3.233r25 


,270*^46 

.jao755 

•29096B 

1300333 

.308138„ 

.314642 

.320062 

.524578 

.328342 

.3^1751 

• 315168 

.336617 

.342094 

•345596 

•349130 


-IIODblTT 
-1. 006762,. . 
“1.U07359 
-1.007929^ . . 
“1.008476 
21-009024,^ 
-l“bc95S0 
-1 .010D75^_ 
- 1.010579 

-I.OIIOTA 
-1 .011575 
^.ni 2047 
“1 .bl2S25 
-1 .012977 
'-1.013426 
-1 .013879 
-1.014*312 
-1 .0147?a_ 
“1.015152 
-1 *015548 
-1 .015937 
-1.016319 
-1 .016683 

_-LtOl7046 

-1.017358 
-1.017647 
-I .017893 
-1.01831A 
-1.014768 
-.-X«0ll37i_. 
-1 .007577 
-L.003136 
-.997765 
-.991437 
-.9B2272 
-.973274 
“^970619 

-.971100 

-.973882 

-.978586 


CP 

_-.GllQlL- 

-.012393 

-.014771 
^ -.01597(1 
-.017027 
-.0 16i29_ 
-.019190 
, „-r020257. 
-.021271 
-.022280 
-;023285 
-.0 24240. 
-.025208 
_T«02^122 

-•Q27033 
-.027950 
-.028629 
__^029694 
-.030523 
. -.031338 
-.032127 
-.032904 
-.033645 


J 
178 
”179“ 
18 0_ 
~181 
-182 

183 

184 


SIGH6 

-.Q0C13S 


185 
186. 
187* 
. 1S8 
' 18 9 


-.C0O5S8 
-.Q01352__ 
■'“-.C02 510 
. - .2 4028 - 
-. 5899 

^ BUS 

-.1 .0670 
J-.L13557, . 
-.016769 
_-,020299_ 
-.024141 


VN 

^OODDOp 

.000000 
jOOOODO _ 
•OOOOCO 

^, 000000 .. 

•ODCODO 
•Donoop 
.DOOOOU 
.000000 . 
'•OOOOOO 
jOOODOQ . 
• 0000 DO 


191 

-.0327)0 

.0000 00 

0 

192 

-.037465 

.000000 


193 

-.C42484 

.000000 . 


194 

-.047781 

.OOOOOO 

■ ^ 

... 

■■"-.053349 

.ooddoo 


196 

-.C59183 

.nooono .. . 


197 

-.065275 

.□□0000 


198 ^ 

-*€71619 

,.noooaQ 

- 

199 

-.078212 

.OODODO 

c 

ZOO . 

-.085047 

.OOCOOD . 


201 

-.092120 

•000000 

> 202 

-.099424 

•00 On no 



-.035017 
-.0 35605 
-.036106 
-.036972 
-.029754 

-iOl228^1_ 

-.015211 
-.0'>628l 
• 004466 
,017052 
•035143 
.052730 
l067898 
•QS6966 
,QS15S4 
,042369 


203 

204 


_-,pooooo _ « 


205 

-. 122690 

.ooooou 

206 

130888 . 

•000000 

207 

-• 138623 

•OOOOQQ 

^gs 

_=jJJl536I 

iDDOODC- 

209 

**.151212 

.000000 

210 

-,156279 , 

tODDOca 

211 

•*• 160726 

.aoODQQ 

212 

-, 104 882 

,000000 

213 

-•169940 

•00 GOOD 

214 

-.176148 

-.000000... 


215 

216 

217 

218 


-. 179C32 
-.181797 
-• 163496 
164 19fe 


-.000000 
•000000 
-.000000 
. «oooooo 




P.OTCNlIAi. TLOVt.- - 2-n , 23V* RtLEA.S E O^lrl' FIOU.FICLO PLOTS 

OOUfil*S aircraft COKPANv'" TU 0-0lMENsr0NAL'P0TENTIAL*’FLOW““pB06RAH 
COMBINED! FLOW* ?-0 -0C5CE HOO iA 


CL 5 

'' .f00013 

eooY^io" 

r -2 

I 

X‘. 

42 

1C.26.S8SS 

43 

10.106415 

44 

9.846435 

45 

97583005 

46- 

9.319255 

47 

9,054235- 

48 

8.786115 

49 

8.5?103n 


CHOj?D = 1.000000“ 


8.25301$ 

7,95i*300'’ 

1^1^99 0_ 

7.«»V5225 
7.IT&155 1 
6«9C51Q0 
fc. 63 $ 370 _ 
&.3$6f05 

97 450 ^ 

29535 

6249S 

• . 96455 

S.-P31S4 0_ 

R ..767860 

i • 2Q_ 

4 . ■20 

3 - 

'‘S. .15' 

i 5 ‘l 7 i«fia_ 

3*217190 
^ - 
2.714170 

Lt> 6 ^ 2 S 

■' 2.2jafi4r“ 
1»97B620 . 
1 *,7.53965 
, .l*>M7.a<i5 
i.iseun 

_ Iil84l05_ 
1.U2484S . 
*679644 . 
.747765” 
.6 286^5/' 


I 12 66 0_ 

3.l69tf4l5' 

3\1 63490 

3.*13S0JS' ’ ’ 

3 . 104710 

3;07J285i 
3 ■ u ^6 465 
2. 9 99965* 

2 .962C75;. 
'2.9229a5'“' 

7.882970 

7*842290,“ 

?;80 1 ?i0. 

2 -760020* 

2.7t9Rlb 

2.676450, 

2 , ? 0 F 9 ? 

' 2 997D5 

2 ^2rZ5 

2. 25800 

2.4.9126D _ 

*2;4 5'a63a , 
.,..^•‘128 130^ 

^ 2 ♦399955' 

2 *374 - 5'^ 

2*3 51 0^ 

2H31 Ci 

2. 31 4' 5; 

2.300 0 , 

2 S2JB9 

2 .262540 

2 7278915’. 

. 2. 201795 . 

2.293475 

.2.315770 .. 

2.346280 
_ 2.363515 

^^4^6^75 7" 

2i4735a0 - 
2i52fi620 
2.5787CD * 


2-0 OCSEF 

’ * ' 5 

.3 5268B 
.356271 
__,3S9879 
•363511 
„...367J64. 
.370838 * 

t374 530 

.378239 . 
_.361?63« 
.385699 
389444* 
.393197 ’ 
.39 69 56 
♦400714 

,404467 
'♦406?13 * 

£411960 

.415674 

.419384 ^ 

.42 3D“7ft 

♦426754 _ 

.430409* 
43404 2 

• 4.1765 2 . 
.44 1238 
.4,4.479 §'• 

_ |448331 
.451838 ■ 
, ,.«45S316 

; 45 a 76*6 ' 

t4 62 16.8^ 

.465583 ' 
f46A486> 
.471984 
, ,474838 

♦ 4 7 748 1* 
j 4 J 993 I , 
*4d2?ClO 
^484302, 
*486248 
*488049 


NO. OF BODIES 
~f p’l aT ELFHENTS’ 
NO. "or'ELEHFNTS 


VT 

-.9643 84 

-.992864' 

. “i .D02309 

-1.013121 

-1.025272 

-1.038711 

-1.069068 > 
-1.(185540 
-l.ia36’92* *"■ 
.-J,?12240S • • 
-1.142027 
-1.16 2380 
-1.183445' 
,71.20503?! 
-1.227D8A'- 
,-1»249512 
-1.272074 

.^ 1.294760 

-1.21732S 
^-1J339672 ^ 

-i;34l679“'’ 
.-1*353)25 . 
-1.403894' 

jj 1 ; 423982 ^ 

-r* 443«4 * 

-a.479646' *“ 
-1.497422 
-1.516f)35? 
,ri? 53763 S.t_ 
-1.569326^. 
-1.610347 
-1.636660 
-1. '*6 39 730'^ 
-1.631208 

-1.6)4404- 

-l.'590«!5 

-1.560932 

-1.S2467B 

-li481'492 


SI 6 HA''' 

1-.1«955_ 

-•182851 

180983.,:. 

-.178449 

::*1T5 345_ 

-.171751 

-.1^7759 

-;i63446 

-. 158^83^^ 

-1 154 099'” 

r* 14 9 175 

-.144116^ 
. -.1 3 0977, 
-.133763* 

.:i.l205)?_ 

-.123229 

2.* 11 790 

-.112574 

-. 107217 

-•mass ‘ 

_ -jQ96464_ 
-'♦091107 

r^CAS73)_ 

-.080392 
. ^ -.07 50^6 - 
-♦069800 

r4Q6*»'6Z5, 

-•0S9S49 

.,,--* 054639 ^ „ 

-♦'049902 
' . -*0 45 421 
-•041163 
-•032522 . 
-•C20166 . 
-t00933T . 
•600S7Q 
^ - # 009864 

♦ 018 710 
•027303 

♦ 035 724' 

. . *044091 . 



PCTENUAl 

FLOW - ** ?-r 

, 23V RELEASE 

D-1-1 FLOW 

FILLO PLOTS 








oou&Lvis ‘aircwaft 

COf^PAMV TtfO-OIHENSIOHAlTpOIENlIftL FLOW 

PROGRAM 







C0H8INE0 

FLOW 


2-0 

OCSCE MOD 3A 








ALPHA 

■= ■ 

«ewDooo 

ALPHA 0 = 

•000003 

HO* 

OF BODIES 

2 




" ” ■ 1 
1 


cl" 

= 

• rood 13 

CHORO“= 

} ^ciooooo" 

TOTAL 

ELEMENTS 

354 




„ ♦ 

body' 

ib"‘ 

~ 2 

2-0 oc$te 

HO* Of ELEHENTS 

177 " 











... 

■ B.T - -• 

u ..... , 


i 

r 

03 

* 


t 

s 

VT- 

CP 


J 

SIGHA 

VH 


•5?165‘> 

2 *6 35205 

*489714 

-1.430601 

-1*046618 


260 


-.OOCOQO 



84 


•426300 

2*693560 

.491253 

-1*370632 

-.A79J82 


261 

• 060806 

-•OOQODO 







♦ 4.92674 ^ _ 
*495983 

-1.300810 

-.692108 


26 2 .. _ 

. .069202 

-.000006 



as 

“ 

•268730 

2.81*5705 

-1.219467 

-.487099 


263 

.077537 

-.OOOQOQ 





•2C443S 

2 *875930 

*495214 

-1. 121541 

-.257654 


264 

. _ .086064 

-♦oorooo 

1 rr I 


88 


•148890 

’2^939500 

•4963TB 

-1 1006050 

-.012153 


265 

.094373 

-.000000 


89 


•1C3035 

3.003170 

*497458 

-.872725 

.238351 


266 

•102179 

-•QOODOl 

; 

1 

9C 


•L66SOO 

3.U6SC9S 

.496460 

-.722783 

*477701 


26 7 

• L06984 

-•□□0001 



91 


•U37460 

3«1 31925 

.49945 1 

-.541897 

.7''6 3‘l7 


268 

* 115432 




""92 


•015440 

Vi2fl5lOD 

•500505 

-.313568 , 

*901675 


269 

.12D313 

-♦000001 





.nr3?3K 

T .2 44830 

•5Q1S18 

-♦030502 

•998516 


270 

•1203B1 

-.000001 



' 94 


•CoeiSQ 

"3*3 68185 

‘1502777 

•3S60S9 

*873222 


271 

*112818 

-•OOQOOl 



9S 


•04C12G 

3.445465 

.sn395 1 

.780869 

*390244 


272 

•084S44 

-.opnooD 



9S 


,l'’24SO 

3,512605 

.505224 

*984434 

*030689 


273 

*062472 

-•OODDOl 

Hi 

& 

97 


•187060 

3.57127P 

.506646 

1.073353 

-*152006 


274 

.04B919 

-•OODOOD 

__fc* 


98 


•285300 

3.621075 

• 5(18163 

1.110830 

-.2 33942 


275 

•Q41620 

-•ODCQOD 

S 



•393S35 

3 .6 A4^48 

.509769 

1.129684 

-.276187 


. 276. 

*037396 

-•000000 

1 


100 


•5f9SDQ 

3 .7 03025 

■;51 1458 

1.139960 

-.2<)9SC8'' 


277 

• G34931 

-•oonooo 



101 


•63299D 

5.7 37770 

.513215 

1.146038 

-•3J34G2 


27 8 

•033456 

-•nODDOO 



J02 


•764030 

5 .769520 

• S15071 

1.149692 

-.321793 

' 

27 » 

•G32701 

-•ODODOO 






3 .798730 

•S17022 

1.15I9S5 

-.327000 


280 

ji032381 

-•OOOOOD 



l'C4 


1«049495 

y.825670 “ 

■ 75 1907 a" 

1.153169 

-.329798 


281 

.032436 

*'.000000 



tcs 


1«2C4460 

5 .ASOSCO 

•5?1?33 

L. 153734 

-.331102 


26 2 

• Q32753 

-.OOCODL 



IGS 


I«368035 

3*673275 

^523505 

J .153728 

-.331008 


263 

.033264 

-•oocono 



107 


1»54060S 

3 .a439I>A 

.5ZSA96 

1.153158 

-.329774 


264 

•033919 

-•OOOOOD 



108 


1 •722585 

3 ,912475 

.526413 

1*152009 

-.327124 

' 

265 

♦034704 

-•000000 





L»914415 

5 .926610 

.531061 

1.15017ft 

-.322910 


20 6 

• 035515 

-.000000 



110™ 

~ — 

2*1165dO 

" 3 .942D55 

■ ,5S Jaa9 

1.147233 

-.316144 


287 

.036335 

-.OOOOCl 

S W 
— S 




3 .9 52.315 

.536783 

1.142370 

-.305008 


200 

.037032 

-•QODOGO , . , 

' 112 '" 


21553930 

■ 3 , 950435 "" 

153967 1 

1.131B17 

-.2ftlOL9 


289 

.037156 

-•ODOOOO 

113 
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POIFNTIAt fLOU - - ?-n t ?3Y RELEASE O-l-l TLOW FIEUl PLOTS 

DOUgLAS AlftCRAFT CQMpAWY TUO-DIME NSI ON AL POTfMTIAL TLOU PROSRAN 
COhBTUCO flow QCSEE HOD 3A 

ALPHA - *^00000 alpha 0 = .000003 NO* OF BODIES 

"'CL "= iFOOtllS* CHOPO"= l.DDOOnO “ T0TAL"~E*LEH£N TS 

BODY TO - 2 2-0 OCSEE NO. OF ELEMENTS 


OATE 1213T7 


BODY TO 2 2 


165 26.61963*5 ^ 3 

166 271370665“ * 3 

167 28*12iiM9D ^ 3 

160 *’ 2$*$7L915 3 

169 29.6213*45 3 

170 ■' *3C.3T1775 3 

1 71 31.1P 22D5 3 

' 172 *31.672635 2 

173 _ 32.6P3065 3 

17*4 3‘3.373N95 3 

. _175 36. 173925 ,2 

176 "3Ni8'7«<3S5 I 

I 177 3S.62NTBS 3 

* .. ih terraiep v alue s 

I 

C7 = -6.33278 rx _= 


3 ,960^uG 
3 .960300 “ 
3 .960300 
3 .960300 
3 .96C3UO 
3 .960^00 
_3 ,960300 

3 ,5To^dd‘“ 
3.96C300 
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’J.96C30D 
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•891S99 
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•922570 
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.9«5P3ft 


VT 
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1.001696 
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1.002557 

1.0U2752 

1 .0a3D76 
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1.003779 
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1.005987 
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CP 


J 
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-.06999A 
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CH = 2B.722B5 


j TOTAL CH ~ -»OOOD.3_ 

. FLOWS COMPLETE . *T = _ . OOCSEC ONDS- 
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, 1,306041 
1 . 2 B 39 57 ^ 

1 *267708 
1 .255753 
1 ,247075 
1 *24 101^ 
1.237177 
1 .23531C 
I .Z353D9 
1 .237177 


-.140253 

-.157574 

-,070695 

• 146429 
. 206325 “ 
*171042 
,120370" 
*('70095 
.022947” 

-^022946 
-.070095" 
-^120369 
-Tin 042 
206325 
-•148478 

• 070695 
,157575" 
.140253 

• 115935 
.352311 

• 7,01449 
. .2254S6 

•100264 

• 1477P7 

• 1108QB 
,082725 
•057345 
*033740 

• 04137 
-.011137 
-•033740 


. ,961118 _ 

.92000?' 

. 8510 ?? 

•698061 

.745277 


.912178 

1.0DS83T 

"Y 1051694 ” 

1,073715 

i. 082706 “’ 
1 .082706 


, -6,928189 
-8.692607 
_^10.67C391 
-Sllai 23 l 2 
11,467790 
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•6,572073 

-9.836944 


*. *912171 

•745277 

.690081 

. -13,072030 ' 
-11*407746 
S. 012380 

•851022 

10.67C476 

.920007 

. . 0*692622 

•961118 

*.«2fi202 

1 .4232,70 

14,331767 

1 .366714 

11.692623 

.1 .325350 

9.794199 

1 .Z.b'iSO 

7,991920 

1 .27572 4 

6.426350 

1 •2&0&3] 

5«042750 

1 .249S15 

3.79SI62 . . . 

1 .242339 

2.64S655 

1 ,237637 
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.516547 

1*235760 

-.5 J6544 

1*237637 
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1 .OQDCOO 

1 .27JfrSO 

57 

1 *coDroQ 

1 *405260 

SB 

1 .cc^oono 

' 1.7S6840 

S9 
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M- 
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1.241015 

1.247075 

I. 255753 
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J. 2859S7 

1 . 506040. 

i73365'99 
I .378976 

1 .480321 
1«44US42 
1.4Q7529’ 

Jj3fl0746 

“ 1*35*9 339 
1*342565 
1.3293Q9 
1*320621 
1.314670 

_l_g.3U743 

1.311743 
I .314670_ 
1.320621 
1.329909 
i;S42565 ’ 
_1^3S93 
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_ 1.4075 26 _ 
1.440*541 
l44ai30 21 _ 

■ U332972 
1.32bn77 
1 .3l9"b0l 
1 .3136 63 

“*17300351 
I .303753 _ 
“1 .29996T 
^2970 52 
I *29"50'8Z“ 

lj.294 084 
"'l ,294064 ■ 

1 .295062 

■ “1 ^297052 

I >299961 


-.057345 

'.062725 
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-.142767 
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.04 326 0 
,036696 
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1.242339 
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1.275724 
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1.461227 
1.441316 
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-.095564 
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i .32209*9 
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-.554853^ 
“ "-;914521 
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•.961334 
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••98 3396 
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11 1.785430' 
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61^620975 

8272 7:31 76 ■ 
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9673 798 21 
95.961527 
89.117138 
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68.218908 
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’i25.97347'4 
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7 8. .4 DC 905 
_,73. 671050 _ 
76:649133 
_JSt.831200 
87.06028‘l 
,,,,92.941186 ^ 

9e7s‘7D102 . 

_ 103,351955 
106.329783 
.105.599661 _ 
97.132396' 

77j868255 

6O.'8C4709 
54 .026806 
. 511893444 
24,816929 
33.D8C894 

_.40,_7606S‘J 

86.0'il398 

54.935949 

•6'! .6C6D4I 

66.095336 
74 ,'447845 
..80.709350. 
•B6,9C8'906 
93.093992 
'•9 9.29'3S96 
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-.257798 

,926140 
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1 .orbf'oo 

.810530 
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,917967 



1 .DOC.IOD 
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-.469527 

. 9065^2 

1.029354 


l.-fCCOO 

1 .27 36S0 
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1.085511 

47 

i.ncnnoG 

1 .<;0526O 
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2 .254791 

SO 

1 .Dccroo 
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-,945661 
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-DI -Zr23 2*m T7963 — 

-01 -2.119*31 .8026 

-or- '- 2 . 027 . 01 — latoe — 
-DI -1.939*01 .B'lee 

-31- -1.853*31 .8265 — 

-DJ -1.-771*31 ,8360 

“81 “7-r692.3I .8911 

-01 -1.618*01' ,8676 

-01 -1.566.Q1 .8562 

-31 -1.683*31 .8602 

-01 -1.617*01 .8558 — 


1.261*31 -3.267*30 
1.276*01 ■-i;287*33 
1.313*01 -3.287*30 
I. 363*31"-'-3. 287.30 


6%'193*00 
B.455*0'D 
3,737*00 
' 9.308*30 
9 .277, *00 
■■9;S6B*0D' 
9.813*00 
"l.'OOB+Ol 
I'.O 34*31 
' 1.050*01 
1.067*01 

“misior 

1.1.38*81 

1.156*01 
1.189*01 
1.216*01 
1.239*01 
'T. 253*01" 
1.291*01- 
1.326*01 
1.'363«D1 
1.6^3*01 


5.682*02 
5.559*02 
5.656*02 
' 5.367.02 
5.277*02 
"Sn 95*02“ 
5,123*02 
5,051 *D2“ 
6.969*02 
6. 936.02 
6.666*02 
” 6 183 8.02" 
6.603*02 
6’.r67*D2 ' 
6.761*02 
6.721*02 
6.731*02' 

-■6 ;r, 26*02”' 

6'.a]4«fl2 

6,673*02 

6.926*02 

6.973*02 


5.003*02 5.110 

6 .936.02 S.0J6 

6.669*02 6,905 

6.807*02 ■ 6.616 
6.753*02 6.730 

6,696*02 6;S52 

6.665*02 6 .S8‘2' 

6.5'33*02 6.519' 

6.559*02 6.451' 

6.522*02 6,409' 

6.489*02 6.363' 

~6 .651*02 ir;32r' 

6 .437*02 6 ,265' 

6.41B+02 ■ 6.255- 

6.404*02 4,233- 

6,394+02 6.212- 

6.389*32- 4.196- 

:36b*D2' 612IS- 

6.368*02 6,298,- 

6.388*02 6,382- 

4.388*02 6.600* 

6.3163*02 6'.64'S' 


•01 -1.358*01 .8711 

■01 1. 303*01 .8760 

-01 -1.252*01 .8805 

•31 ■ -l.235-*31 ” ,6867' ” 

•01 -1,162.01 .8885 

01 • -1. 122.01 .8921 

■01 -1.085*01 .8953 

'Bl' -KDSS+Or ';«98'2 — 

3 1 -1 .323*31' .9009 

01 ' "-9.961*00 .9033 

□ 1 -9.717.00 .9054 

01 -9.531+33 .9372-- 

01 -9'.33i7*00 .9088 

31 ^-9ri3'3'*33"^91D2 

01 -6'. 985+00 .9116 

01 ■ -8.650.00 • .9123 ' ' 
31 -8‘. 756*33 .9133 

01- -6,662.00' .9136 ' 

3l> -6.632*33 .9136 

07- “-ar697.oa — ^.9137' — 
01 -9i070*00 .9137 

31i -9,316*33 .9137 

01 -9.536*00 .9137 

31' -9‘ ..768*00 .9137 " 



fiB/BT PS/Bt 


• <l»3-01 ” -94966«0H "iVUT ,6706 

.5B9-D1 S*l^T i®”J_ 

r522'=Ol -l.OffftOl .9137 .8691 

.503-01 -1.00Z»Dl .9137 _.670I_ 

, 1185-01 -9^928*00 .9137 .8711 

.965-01 -9.e36«00_ .9137 t6T21_ 

. 495-31’ ■■ -».79i(t33 ”9137 .8731 

.424-01 -9. 696*00 .9iy •B793_ 

7902^01 =9TWS>'0D T9I 37 16’r59 

.380-01 -9.441*33 .9137 ,8766_ 

7356-01” -9'.3!M*D0' “9137 18778 

.332-31 -9.222*33 _ .9137 .8790 

. 307‘-01 -9.109*00 "lOUT l890S 

.281-01 -8.991*00 .9137 .8816 

:269"33 =57873*37 193 37 7883:1“ 

.227-01 -6.798*03 .9137 _.8944 

. 196-31 -6.621*33’ *.9137' '.8858 

.169-01 -6.491.00 .9137 6673 

.139-Or' -8‘.357*00 .9137 ".B 86 B" 

,137-31 -6.221*33 .9137 .8904 

7 075T=D1 -87 06r*0D 191 37 “789 20 ” 

.041-01 -7.938*00 .9157 .8936 

,006-01 “- 7 ; 795*00 "■ 19137 .8952- 

.974-01 -7.652*00 ,9137 .8969_ 

;943-31 “-7.523*33 ".9137 ;8984 

•916-01 -7.409*00 .9137 .8997 

7’903-DI ■-Tl'SSS^OD 791 T7— 79003“ 

1.923-01 -7.439*00 .9137 ,6993 

;036-0! ■“'-7;924*D0"“.9137"“ .'6938" 
1.616-31 -1.356*31 .9137 .8640 


0N-303V POINTS 


1 

X 

V 

$ 

vcon 

VSAff 


CP 

R0/R1 

176 

3.563*01 

3.2S7+30 

3.613*01 

-5«15a*02 

4+38B+D2 

4»blB-0l 

-1.056*01 

.9137 

“ 1T9 

““375 8 9 *01” 

I.267*30 

— i;S39*or — 

■-4*S3?+D2 

sj.S'BB'+O^ 

“4*D30-3r 

-7*924*3T“ 

.9137*" 

160 

3.414«01 

3«25t«a0 

3.665*01 

-i<.43r+D? 

4.366+D2 

3.923-Dl 

-7*439+00 

.9137 

161 

“31343431 " 

’S.297»33^" 

- 3.393*01 

-4.38&+02 

4.3B6+D2 

5.903-01 

-7*355+00 

.9137 

162 

3«266l01 

5 *237 + 30 

3.3l6’*01 

-4t 39^402 

4*380+02 

1.91S-(U 

-7.409+00 

*9137 

163 ~ 

3.192*8I J-,26T-*30 ’ 

- 1. 262*01 

-4*J) 28 + 02 

“'N. 36B + Q2 ‘ 

3t943*01 

-7*523+00 

.9137 

164 


3 .267*93 

3.168*01 

-4*463+02 

4»3BB+02 

3.974-Dl 

-7.652*33 

• 9137 

" 165 

3’;on3*in 

JT2B7''*I30 

32096*01 

‘-4 .“499^02* 

— 4;3fis*D2 — 

“^'•ooe-oi 

”-7;795*03‘“ 

”9 ITT"* 

186 

^•969*]l 

3.237*33 

3.319*01 

'-4tS36+02 

4.388+02 

4*041-01 

-7*938+00 

.9137 

- 187“ 

“J.B95.0I ■■ 

■ “S .287*00 

"'2.965*01 

-4.5'72*02’ 

’ ■* 4*366 + 02 ‘ 

4*075-01 

' -B*D81+00 

*.9137 

166 

J.B21*Ol 

3.267*33 

2.871*01 

-4*b0V+02 

4.368+02 

4.107-01 

-6.221+00 

.9137 

169”' 


3.267.33 

■ 2.797*01 

-4.641+02 

4.568+02 ’ 

4*136-31 

-8.357+33 

.9137 

190 

2.672.01 

3.267.00 

2,723*01 

-4tb74+a2 

4.306*02 

4.169-01 

-9.491+00- 

• 9137 

I9I 

2TB7'ff.3 1 

T'.'2B 7 * 3 3 

'T1 668 *3 1 

"-4.'7D6+D2 

4.‘38a+D2 

‘"4;i90-or 

— -e;62i+D0^ 

~9137 “ 

192 

2.52<I«DI 

3 .237*30 

2.576*01 

-4*737+02 

4.366+02 

4*227-01 

-6.746+00 

.9137 

193““ 

“2I#5D*D1 ■■ 

~I.267*33 ‘~ 

• 2.500*01 • 

■-4.767^02 

4. 388 + 02 

4*254-01 

‘ -e.873+00 

.9137 

194 

2.376*01 

5 .267*33 

2.625*01 

-4.79S+0? 

4.3B6+02 

4*281-31 

-6*991+33 

.9137 

' “ 195'“ 

“2.'3B1»BI • 

■ 3.287*30“ 

■•2.351+01 ' 

-4.Q24+02 

+.386+02 “ 

4*307-01^ 

“ -9.139+QO ” .9137 

196 

2.22T..3I 

3.287*33 

2.277*01 

-4«8S3+D2 

+ .386+02 

4.332-01 

-9.222+00 

• 9137 

IV t 

53 ♦Til 

j“.2B 7 +0 0" 

2T203'+(n ~ " 

“^4* 877+02' 

“’4;3e3+02 

~4r*356-0I' 

— -9.334*00'““ 


198 

2.DT9.D1 

3.287*30 

2 .32^*01 

-4*902+02 

4*368+02 

4.390-m 

-9.441+00 

.9137 

199 ~ 

~2roo4*Di ■ 

■ T.2B7*30 ■■ 

" '2.055*01 

-4,927*a2 

4*388+02 

*4.432-31 

-9.546+33 

• 9137 

2Q0 

1.933*01 

3.287*00 

l*9S0*0l 

«4*9SD+02 

4.3S6+Q2 

4.424-01 

<-9*646+00 

• 9137 

■ 231 ■“ 

— 1 .BS6*3l“ 

“- 3.287*33 - 

-1.906*01 — 

■■-4*773+D2 

4i386+Q2 

4*445-01 

-9. 744+00 ' 

-.9157 • 

202 

1.TB2»01 

3.257*00 

1 .B32*01 

'-4*994+02 

4.3Bd+Q2 

4*465-01 

-9.036+00 

.9137 

7D3 — 

— r."7 08 ♦in — ^'."28 7 *0 a *“ 

— T.'^SB *01 — 

-S*ai5+D2 

“*•'4. 386+02 

“•4'.4e5-0t 

— -9*928+00^ 

““*9137 ‘ 

204 

1.633*01 

1.287*30 

1.586 *01 

-S.33S+02 

4.386+02 

4*533-31 

-1 *332+31 

*913? 

• 205 — 

““1. ‘559.01 

— 3.287*00'" 

1>6D9*D1 

-5. 055*02 

+.3B9+02 — 

■ 4*522-01 

-1.010+01* - 

.9137 

236 

1 .iiB5*31 

3 ,2B7*33 

1.535*01 

-5*3B4+D2 

4.306+02 

4.549-01 

-1.023+01 

.9137 

“207 

" r.u7»oi - 

-*'3 .287*00 

1 .667*01 

-£•024+02 

M.308+02 

4*493-01 

-9.966+00 

*9137 

206 

1 .36D*01 

3.287*3'0 

1 .610*01 

-4 • 973 ♦ 02 

4.366+Q2 

4*446-01 

-9. 740+03 

*9137 

209” 

r:3n*tri — 

— i.^sroo™ 

— 1 :363*tn •" 

'-^4, 9^9 +02 

— 4r3ea+02“ 

“4*43301’ 

-9.53 6+33 - 

-.9137-* 

210 

1.276*01 

3.287*00 

1 .326601 

-4. 873+02 

4.399+02 

4. 352-01 

-9.316+00 

• 9137 

211 

1 .261.J1" 

3.287*33 ■ 

■ •1.291*01 

-4*814+02 

4 * 36Q +02 

4*298-01 

-9.0TQ+00 

*9137 

212 

1 .213*01 

3 *287*00 

1 .263*01 

-4'« 724 + 02 

4.368+D2 

4*215-01 

-8.697+00 

• 9137 

213 

1,169*01 

3.286*00 

1.239*01 

-||•7Dl+0^ 

4.3fi9+D2 

4>*194-D1 

-6. 632+03 

• 9136 

214 

1.166*01 

3, ,28 2 *30 

1 .216*01 

-4.721+02 

4«<394+02 

4*212-31 

•6.682+33 

• 9134 

215 — 

“r;i39iar“ 

— 3.275*00“ 

" '1"1S9*01 

’•U;741 +02* 

4;4D++02 

“4.230-01 

“* -a. 736 + 00 

• 9130 “ 

216 

1.113*31 

3.266*33 

1.166*31 

-4*767+02 

4.419+02 

4*255-01 

-8«06C)+QD 

.9123 

217 

■ ,l.OBB*01 

3 .250*'OD 

1.138*01 

-4.603+02 

4.437+02 

4*265-01 

•8.9B6+09 

• 9114 

216 

1.062*01 

3.233*30 

1.112*01 

-4*836+02 

4*481+02 

*4*321-01 

-9.133+03 

*9102 

219 

1.037*01 

■ 3 *21S*3'3 

1.087*01 

-4.603+02 

4.489.02 

4*.363-31 

-9.537+33 

.9008 

220 

1.011*01 

3.189*00 

1,063*01 

-4.934 +02 

4.522+02 

4.4D7-01 

-9*^531 + 00 

• 9072 

- . 221-.. 

—9.865*31 “■ 

-- 3.163*33 

1.336*01 

-4 + 909^+D2 

4i559+D2 “ 

*4*461-01 

-9.717+ 00 

.9054 

222 

9.5B3*03 

3',135*0D 

'1 .OD8*0l 

-5.'a5l + 02 

■4.6D3+02 

4*’519-01 

-9.961+DD 

*9033 

223 

9,319*00 

3i 336‘*03 

9.513*00 

-5'* 123 +02 

4. 646+02 

41562-01 

•1.D23+01 

• 9309 

224 

9.056*03 

3.071*30 

9,545*00 

• 5.1‘95+02 

4.^96+02 

'4 *'652-31 

•1.355+31 

• 8902 

' *225 

B. 788*03 

3.036*00 

'9 .■277 *00 

-5.277 4 d2 

4*750+02 

4*730-01 

-l.CBb+Ol 

*8953 

226 

B. 521*33 

3.D3 3*-3 3 

9.306*30 

-5.35*7 *02 

4*607402 

4* bt'4-Ql 

-1.122+01 

♦ 6921 


PS/PI 

• fi&ND 
“ 89 3S 

• 0993 
' *9003 

• 6997 

• 69SN 

• 8969 
”8952 

• 8936 
•'•89 23 

• 6904 

• 8886 

• 8973 
— 78858 

• 8844 

• 683D 

• 6816 

• 8B03 

• 879D 
— ;87T$ 

• 8766 

• 8754 
.8741 

’“*0731 

• 8721 
“•8711 

• 6701 
" ;B6 91 

• 6677 
*B70T 

• 6731 
— ^.8755" 

• B780 
“ .6807 

• 8869 

• 8660 

• 6651 
■~;8542 

• 8629 
*8814 
*6796 
.8774 

• 6750 

• 8723 

• 8693 

• 8659 

• 6622 
.6580 
• 6534 



I' 

X 

Y 

‘ 227 

‘ B. 253*00 

2.962*33 

22S 

7«9B4+Q0 

2.923*33 

229“ 

— ?mS+33* 

2:ea5*3D' 

233 

7*44S*33 

2.842*73 

■ ‘ 231 ' 

■" 7*l75*DD" 

' 2.831*33“ 

232 

6.905*03 

2.763*33 

““ 233^“ 

6.63503 

“■ “2.7P + D3 

234 

6. 366 +07 

2.673*30 

*““'23S“ 

— 6T397+73" 

"^’“iT.632*7D 

236 

5. 63D*OD 

2.633+33 

- 237- 

5.562*00 

2.562*30 

236 

5*296*71 

2. $25*33 

~ 239“ 

S.032+D3* 

2.491+30 

243 

4»T66*O0 

2.459+30 

“241“ 

4.Sd6"*0a 27426*30 

242 

4.245*00 

2*433+30 


J.726*0a J,35l»t)D 

■ 3,I|71*DD ?•. 331*33 ■ 

5.2J7*D3 7.3n*53 

■TJ79 65*00 JT33 3 *TID 

2.71i|*33 2.293*33 

■2.H66*Dn ~2'.263*30* 


2.2I»*DD 

-1.97»*33‘ 

1.75**D3 

TTstBrrr 

1.356*03 


2.279*30 

“2.281*33“ 

2.293*DD 

“2T315*30“ 

2.395*33 


* 255 r.l84*ll0 ■■2.30»*:D 

255 1 .325*33 2 .*l24*33 

Z5T 67795-31 2. 97* *30" 


256 7.478-01 

— " 259 E7265=Tir 

250 5.217'Dl 

25l' " 4.253-31 

252 3.421-01 

”253 2.587-01 

254 2.044-01 

— ^255 T74 8'7-70T 

255 1.333-31 
267 ■■ 5;5S3-D2 

258 3.746-02 

259 i;S44-02 

270 3.23S-0S 


7.470-01 2. 525*33 

57285=01 2.579*33” 

5. 217-31 2.535*00 

4.253-31 ■“ 2.594*33 
3.421-01 2.753*30 

2.587-01 2,814+33 

2.044-01 2^875*33 

T:4 8'7-T1T 2794 3* 3 0 ' 

1.333-31 3.033*33 

5;5S3-32 “"37055*00 

3.745-02 3.132*33 

i;544-02"" 3.205 *33 
3. 235-03 3.235*00 

871 SS-i"? 37"363”33 
4.012-02 3.445*35 

l,D25-0l‘" 3.513*30 
1,671-31 ■ 3,571*33 

2;aS3-Dl 3.521*00 


5.737*00 
0.468*30 
""5;i93*D0 ‘ 

7. 921+00 
"7.547*00 
7.374 *00 
,7.131*33 
5.829*00 

”57 557+00 

5.267*00 
'5,017*00 '■ 

5.749*30 
5.481*00 
5.215*00 _ 

“"77952*00 
4.689*00 
i»*429+a0 ‘ ' 
4.17Q«C1D 
'3«.9]^«00 
3 •65&«DD 

— 5T4‘t]5VO0 

3«'l 54«a0 

2»b5?«DD 

2»19>t'»00 

— 17956+1] D 

1.794+DO 
““1.616 + DD 
1.451+OD 
• 1.299 + 00'" 

1.15T+00 
— 17025*00 
9.055-01 
■'7. 937-01 “ 
5.905-01 
' 5.954-01 

5.053-01 
— 57^ 15-Dl'"" 
3.431-01 
■" 2.703-01 ' 
I, >84-01 
“ 1.223-01 ' 
4,130-02 
"=4.297-02 
-1.265-03 
-2.182-01 
-3.212-01 
-4,'3l3-ai‘ 


-5.454*02 
-5.569*02 
= 5;662*Q2' ' 
-5.803*02 
-5.931*02 
-5.068*02 
-5.213*02 
-5.365*02 
-57525*02" 
•5.593*02 
-5.057*02 
-7.348*02 
-7.235*02 ■ 
-7 .427*02 
-T;623*02“ 
-7.822*02 
-a.'323*02 
-6.225*02 
-6^427*02 
-6.62 7*0 2 
■=87828*02“ 
-9.333*02 
■-9.255*02 ■ 
-9.563*02 
-9.938*02 
-1.012*03 
”-i7on*o3” 
-1,000*03 
■-9;665*02' 
-9 715*02 
-9.569*02 
-9.433*02 
-9.337*02 • 
-9.192+02 
-9.364*02 
-e. 977*02 
•6.855*02 
-8.731*02 
*-6'.574*02" 
-6.303*02 
-6.155*02 
-7.845*02 
-7.455*02 
-7.141*02 
■■-57583*02 ' 
-5.081*02 
-3.398*02 
-2.242*02 
-1.499*02 



I 


V 


s 


3-935-01 3.665*33 

5.095-01 3.703*30 

t: jia-n jt73b*'33 • 

7.66D-01 3.770*00 

■ 9. 330-11 • 5.799*30'' 

1.069*00 3.836*00 

“ 1.3D9*0O T. 650+00 
1.366*33 3.873*33 

1 .5 91*33 3V69* *011“ 

1.723*00 3.912*33 

■ 1. 91»*03’' “ 3.929*33' 

2,117*03 3.992*00 

“2.333*33 ‘ 3.952*30 ' 

2.554*03 3.956*00 

27820*03 3.'963*33~ 

_3. 121*03 3.963*30 

■3.922*03 ■ ■ 3.963*00 ' 


3.729*03 
■■ 9 . 025+00 
4.326*00 
■'4'.-62TT0r- 
4.929*03 


3.963*00 
3.963*00 
'31 963*33' 
3. 963 *00 
■3.963*33“ 
3*963*30 


" 52233*00 '3,963*30' 

5,531*03 3.963*30 

■ 5.633*00 3. 953*00 

5‘134*31 3.963*30 

“6:7IIS*0O" SrseO.OO- 

6.736*00 3,963*00 

'T.‘0SB*Q3 3,963*30 

7,339*03 3. 963*00 

■■r.5»]*Jl — 1.963*33 

7.942*00 3. 953*03 

'BIZin'tnD 37963 +31” 

8.549*31 3.961*33 


8.695*03 
9.147*33 
■9.446*03 
9 .749 *00 
"T7IT5»3T' 
1.035*01 
■ 1 .365*01 
1.095*01 
1.126*01 
1.156*31 
”1.186*01" 
1.216*01 
1.249*01 
1.288*01 
1.336*31 


3.963*00 ■ 
3*963*00 
3.943«31’ 
3.963*30 
“TT963»3J" 
3 .963*00 
3.963*00 
3 .963*30 
3 . 963*00 
3.963*00 
3.960*00 ' 
3.963*00 
3.963*30 
3.963*30 
3 .963*30 


'5.479-01 
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TH£T'» 

-5.653+33 
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H6CH 
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WFRACT 



6.096*00 7.737-31 
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6.096+00 1.216*30 7.637*02 

“61396*00 1.637*30 71678*02 

6.0 96*00 1.656*30 7,723*02 

“T7D9 S*OtO ITBT7*OD 7 

_6. 396*33 2. 130*30 7,826102 

“6.096*10 2;3B5+5a “‘■7.898*02 


7«9S6*00 

fill tv 99 A ^ 1 • 

7*535»D2 


b^047*D2 

b.9Ib-01 

• 769S 

1 * 1 

T15 5 1 * 32” 

— — 
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“-erF-95Mi— 

“VT993— 

1.921*31 

7.576*02 

1*>|52^03 

6»347tD2 

b«9SS-01 

• 769S 

■2.536*31 

• 7.605*32 

■ li91l+OD 

b»04T«OZ 

6.9S6-0! 

”.7B95“ 

3. 2D0*bl 

7.666*32 


b. 047402 

7.Q2S-QI 

• 769S 

3-.921.0: 

7.668*32 

”■2.924400 

6.Q4T4tl2 * 

- 7.0b9-Ol- 


6, 737*31 

7.737*32 

1.4BB43] 

b047«32 

7.119-31 

• 7695 

“5'.562*31- 

r.79z*02‘ 

4 ‘■.09 4 ♦IPO'*' 


— 7-rlTa-Ot“ 

““‘•7895— 

6;692*31 

7.851*02 

4»744^0D 

6. Q47-*02 

7.25S-01 

• 7695 

7.B'16*D1" 

'7.937*32 

"“‘5.65a4ira“ 

b*tl474DZ 

' 7. 323-31 • 

’•7395 


7001 0.000 

:705e' “ 6;i32-o2 — 
1,085-01 
1.556-01 ■ 

2.020-01 

2.683- 01 — 

2.966-01 
"S: 603-01 — 
3.663-01 
6.317-01 ■ 

6. 772-01 
5,226-01 ■•- 

5.683- 01 


- .7210 
.7193 
-.1165 
.7132 
— ;T096 

• 7058 .9,367-01 

■• .7001 


-T7256 6-. 163-01- 

,7238 6.597-01 


7.056-01 " “ 
7.517-31 

“9.980-01 

. 8 . 666-01 

— 8.915-01 


CO 

>(- 

•"M 


■■1.033+03 


>76X0 NJH3ER 6 



X 

1.2S1401 

7 

-3,Sfi'7*3D 

1 

ntorsTTT 

-3;'iou*'0D 

2 

1*231*31 

-2W74 + 33 

3 

1 *201*01 

-2. 447*30 

4 

1.201*01 

-2*121*30 

5 

1.201*01 

■ -1.795*30 

6 

1.201*01 

•1.46d430 

/ 

i;23i*ir 

61. 162.33- 

B 

1.201*01 

-B.l5a-3I 

, 7 

1.201*01 

“-N.895-31 

10 

1.201«31 

-1. 632-31 

11 

'1.201*01 

1.532-31 

u 

1.271*31 

H.J9&-31 

*13 

I. 201*01 

■ 8.158-31" 

IN 

1*201*01 

1.!42*3Q 

"Is 

'1.211*31 

a;4b8*35 
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vx 

yy 

yRE 

tReti 

V3L 

HACH 

■6.706*02 

■-■1.756 + 3 3 


-2.139-31 

6,366*32 

N. 196-3 I 

T;^5» 02" 

-5’.55l+OD'“ 

■6;636.32 " 

■^6“.3SD-D1 — 6.386+02 “ 

“4*134-01" 

6. 691*02 

-T.7S6+33 

4ib92*02 

-9.675-01 

* N. 188*02 

4.1S5-D1 

■ 6.732+02 

>■6.586+00 

6.733*02 

-1.039*03 

6.306*02 

6.223-31 

6.766*02 

-6.SS3*00 

4.767*52 

-1.026*03 

'6 , 388*02 

4*2SS*>01 

6.796+02 

-T. 953+13 

' 6.795*32 

-9. 533-31 

M.765*32 

4.25D-DI 

4 »S17*02 

-5.968*00 

4.615*32 

-8.311-01 

4; 388*02 

4.301-01 

"•6. 835 + 02' 

~-S.6S3+00 “ 

4.8350Z' 

-6;734«-Dl 

4.790*02 *■ 

4#31B-0 J ' 

4»54B*02 

-4.196*00 

4.648*02 

-4, 962-01 

6,‘3S8 *32 

4.133-.31 

4.B56*P2 

-2.577*00 

4.BSfe*0Z 

-3,061-01 

4.'36B*02 

4,i37-01 

6.861+02 

-S. 789-3 1 

4.661*02 

-U336-DI 

4. 388*32 

4.341''01 

4»6bl*02 

6,765-01 

4«96i*D2 

1.035-01 

M. 368*02 

4.341-01 

N«S56*02 

2.577*00 

4.536*02 

3.363-01 

4.398*02 

4.337-0 1 

4.84*0*02 

4.198490 

4.9N'S>02 

6.961-01 

•'6v»3bB+D2 

4.333-31 

4.B35*'02 

5»&82*03 

4.835*02 

6,736-01 

N •39B*02 

4.316-01 

4.Sr7*D2 

6.986*51 

4.819*02 

B.iiioi 

4.365 *32 

4.3Dl'0i 


WB/RT 

f»$/PT 

UFRACT 

*9137 

♦aese 

D.nOD 

*”.9137” 

— ;bb90"' 

2.772-02” 

♦ 9137 

♦BAbS 

7.510-D2 

;913T 

♦ 6845 

U2S3-31 

• 9137 

♦ 8830 

1 .74 5-01 

.9137 

• 6615 

2.239-01 

*9137 

• 6805 

2.757-01 

*9157 * 

♦0796 

3.236-or 

.9137 

• 0791 

. 3*743-31 

.9137 

• 8767 

4 *244-01 

.9137 

♦B?a& 

4,748-01 

.9137 

• 8765 

5.252-01 

♦ 9137 

.6,767 

5.756-01 

♦ 9137 

• •B791 

6.263-31 

.9337 

.B79B 

6.,762-ai 

♦ 9137 

••8ft06 

7.263-01 


- -If" 

n l,20J*31 

- IB 

19 l.?01»01 

20 1.201»0I 



I . T9S«:0 
2.1? 1»30 
2,i<«7*30 
2,779*30 
3.100*30 

J. 287*33 


9.799*02 

9.7I>5*D2 

9.TJ2*D2 

9.891*02 

9.830*02 

9.738*02 


7.999*33 
B. 632*00 
8.588*00 
7.750*33 
8.880*03 
1.758*33 


9 . 795*32 

9 . 767.32 

9.733*32 

9‘.892*32 

9.838*32 

9.738*02 


9.979-31 
1.328*00 
1.339*00 
9.975-01 
8.883-01 
2. 139-01 


9.388*32 

9.388*02 

9.388*02 

9.388*32 

9.35B*D2 

9.388*02 


9.280-01 

9.288-01 

9.223-01 

9.188-31 

4.159-01 

9.198-01 


.9137 

,9137 

.9137 

.9137, 

.9137 

.9137 
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,6830 6.257-01 
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.6856 1.000*00 


i 


9»K; BEISHT FL39 D*T» 


1.51736*01 

1.81697*01 

1.71770*01 

1.73886*01 

1.73588*01 

-I'.89936*01 


wooic^ 

1.99819*01 

2.314828*31 

9.98710*01 

9.79519*01 

9.52721*31 

-7.27283*01 


H*C9 

2,35801-01 
2 .99653-01 
6.89918-111 
7,92717-01 
7.39053-01 
-9.28591-Ul 
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TABLE I. - BISUPERELLIPSE INPUT OPTIONS 


(X/A)^ + (y/B)® = 1 , between two given points (XIN(2), YIN{2)) and (3£IN(4), 


pro fit !* *' 1» **0 , ‘'■i -t- I > ^ 

YIN(4)), tangent (except case f) to the specified endlines (lines 1 - 2 and 4 - 5), and 
■ ( I 1 listed conditions, settlie input as indicated. (Do not input P, 


i I' 




4 ft \T 


Figure 

Given ■ ii' i... 



Input the h .| > 

1 .. 


11 


ilEEDEN 

XIN(3) 

YIN(3) 

XIN(6) 

YIN(6) 



(1) 

(2) 






a 

One point (Xg, Yg) (Superellipse) 



Xs 

^3 



b 

One exponent, N (P = Q = N) (SupereUipse) 

N 

N 





b 

T"WO expone"nt3, P and 

p 

Q 





c 

One eiqionent P and one point (Xg, Yg}** 

p 



^3 



c 

One exponent Q and one point (Xg, "Fg)*^ 


Q 

^3 

^3 



d 

Twopomts (XgjYg) and (X^, Yg) 



^3 


^6 

Ye 

e 

One point (Xj, Yg) and its slope ' 



^3 

^3 

1.5 ^ 

-100. 

f 

X-location of inflection point Xj and its 
slope (dy/dx)g'* 



^3 

■flOO. 

(dy/dx)g 

-100. 

g 

Curvature CAP at an endpoint (Xg, "where 

Yj.)maybe either (XIN(2), YIN(2)) or (XIN(4), YIB(4))° 



Xg 

Ye 

CAP 

200. 

h 

Curvature at end point (XIN(2), YIN(2)) is to be set 
equal to curvature at last point Of previous segment 



XIN(2) 

Y1N(2) 

999. 

200. 


^In general, lines 1 - 2 and 4 - 5 need not be « . > - (fig. 6). If they are not, the bisupereUipse equation is 

/ x' +Y' tan wY , _ 1 TOhere Y'=Y and X’=X + Ytanw and w is the angle of deviation from 


■ ‘ ' I . The angle w may be positive or negative depending" on "Whether the angle ^ (hg. 6(a.)) be 
tween lines 1-2 and 4 - 5 is acute or obtuse, . (w = 90 - ft. 

•^Por this option; (1) no shear is allowed , 1 . e. , the endlines 1 “ 2 and 4 - 5 must be ,< . 

(2) one endline must be i ■■ I, (3) only one endline is tangent to the curve; the other endlme is ortho- 
gonal to the curve. See figure 7(f) for detailed restrictions. In general, a bisuperellipse will have an in- 
flection if either P or Qis less than 1 and the other Is greater than 1, 

■^For curvature options: (1) no shear ! i ■ - - are allowed; (2) desired curvature, whether via input 
CAP fe) or previous segment (h), cannot be cero Or infinite; (3) for curvature matching option (h) the slope 
angle at the curvature match endpoint cannot be 90° unless the previous segment is also a bisuperellipse. 
problem can arise m.. v i bisupereUipse exponents H and/or Q. The standard SCmCL orientation 

is that of a typical inlet internal Up as shown in the sketch- 



Typical User Orientation 
and Equation 


X 





tfit 


The user’s orientation is arbitrary and if different from the standard orientation wiU he transformed to the 
standard within SCmCL by rotation and/or mirroring. For some user orientations the transformations will 
result in an interchange of exponents ■ ...... p = q and Q = p. Since the curvafaire at point 2 is con- 

trolled largely by P and at point 4 by Q, tbs user must input p as Q and q as P to get the desired cur- 
vature ' I i ■ (Whenever P = q and Q = p then X=y and Y = x and A = b and B = a; however, 

A and B as such are not input but the Ouiput will reflect this interchange. ) 

The important factor in determining the relationship between P, Q and p, q is the angle of rotation re- 

qmred to bring the user’s line 1-2 to a horizontal pOsiUon. U that angle is an odd multiple of 00 then 
P = q and Q = p. If the angle is an even multiple of 90 ° then P = p and Q = a and there is no problem. 




fa) Variable . contraction ratio. 


(b) Scoop inlet 



(c) Dual Inlet. 


I 

Figure 1. - Sample V/STOL three dimensional InJets, 
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(b) Dual inlet. 

Figure 2, - Two-dimensional approxi- 
mations. 



INPUT 



Figure 3. ~ Sch emstic of overall progralris; 












(a) Single inlet: single. passage. 



(b) Single inlet: dual passage. 



(c) Single inlet: dual passage, alternate 
weight flow specification. 



(d) Dual inlet. 

Figure 4. - Inlet geometries and flow conditipns for 
combined solution: inlet mass flow rate, W; free 
stream velocity, Ve^; 3nd inlet incidence angle, ct. 


Artificial external 


External Tangent points -\ forebody extension y 

forebody \ > 



Figure 5. - Typical inlet segmentation. 



At any point 

V = AVj + BV2 + CiVg - V4) 

where A, B, and C are determined by specifying values of: 

V_ average axial velocities at the control station 

Voo free stream velocity 

a direction of free stream velocity relative to 
inlet axis 

(a) Single passage inlet. 


At any point 

V = AV^ + BV2 + C{V3 - V4) + 0 % - V4) 

where A, B, C, and D are determined by specifying values of: 

V- V- average axial velocities at any two 

2 of the three control-stations 

free stream velxity 

a di rection of free stream velocity relative 

to inlet axis 



(zsszzmzzz. 





(b)Two passage inlet. 

Figure 6. - Combined solution, V. 














Pressure ratio, ps/ptc 



Local Mach number 






ANGLE =0.000 
Vinf = 145.530 

Mach = . 792 
at X = Z 096 

Scale = 90a 000 




O Segment endpoints 

<> Slope line endpoints-dength of slope line is arbitrary) 
A Optional su'pereilipse point 
V Optional'bisupereil ipse point 

Optional bisuperellipse inflection point 



(a) Superelilpse optional point 
{X3, Y3) specified. Exponent 
N calculated; 


(b) Superelilpse exponent N or 
- bis upereliipse exponents P and 
Q specified. 


(c) Optional point {X3, Y3) and 
exponeni P or Q specified. 
Exponent Q or P respectively 
calculated. 


(d) Optional points (X3, Y3) 
and (Xg, Yg) specified. 
Exponents P and Q calculated. 


(e) Optional point (X3. Y3) and 
slope (cly/dx)3. Exponents 
P and Q calculated. 


Figure 11 . - Sketches for SCIRCL input Bisupereilipse options. 




If) Bisuperellipse with inflection 
point Axial location X 3 and 
slope tdy/dx )3 of inflection 
point specified. Note that the 
slope line requirements for 
this option are different from 
all other options. One slope 
line must be perpendicular to 
curve and one must.be tangent, 
thus there are two possibilities 
as shown. Both lines must lie 
away from and outside the 'box' 
surrounding the desired curve. 
Also, shown are the exponents 
that will result in each case. 


4 5 

2 


1 



(g) Curvature at either point 2 or 
point 4 specified. 


(h) Curvature at endpoint 2 
matched to internally calcu- 
lated curvature at endpoint 
4 pr of previous segment 


6 

1 


Figure 11. - Concluded. 




(a) Straight line 



(b) Straight line. for dosed body 



(c) Lemiscate 



(d) Cubic 


Figure 12.- Sketches for SCIR CL input options except bisuperellipse. 




NASA-C-836 IREV 9-IA-59] 


(a) Title, control and rake data cards. 


Figure 13. - SCIRCL input layout 










































(b) Body and segment data cards. 
Figure 13. - Concluded. 












PMj£dT NVHBER 


&MALV5T 



JASA-C-836 <REV 9-lA“59l 


Figure 14. - C0MBI1\I-2D input form. 
































5 r I/O Unit No. 
B - Rewind 
W - Write 
R - Read 


Caicotnp Routines Referenced: 

(U “ Line 
(P) - Plot 
fS) - Symbol 
(SC) - Scale ' 

CN) - Number 


Figure 15,- Call Seguences. 






















Figure 15. - Concluded, 
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